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Abstract 

" — ^  An  analytical  study  was  performed  to  determine  the 
critical  buckling  loads  and  natural  frequencies  for  composite 
cylindrical  shells,  including  transverse  shear  effects  and 
constant  through  the  thickness  direct  strain  A  linearized 
form  of  Sanders  shell  equations  are  derived,  including  a 
parabolic  transverse  shear  strain  distribution.  Higher  order 
laminate  constitutive  relations  are  developed.  Hamilton's 
Principle  is  applied  to  derive  five  partial  differential 
equations  of  motion  and  the  associated  boundary  conditions, 
which  are  then  solved  using  the  Galerkin  technique. 

Ply  layups  of  [0/90],  [45/-45],  and  [0/45/-45/90]  were 
investigated  under  three  boundary  conditions,  simply  support¬ 
ed,  clamped,  and  a  combination  simple-clamped.  Symmetric  and 
nonsymmetric  laminates  were  investigated. 

Curvature  is  shown  to  have  a  important  effect  on  all 
panels  investigated,  due  to  membrane  and  bending  coupling. 
Buckling  loads  for  deeper  shells  are  significantly  higher  than 
for  flat  plates.  The  effect  on  frequencies  is  not  as  great. 

Comparisons  between  various  ply  layups  and  boundaries 
show  results  are  greatly  dependent  on  the  shell  geometry, 
curvature,  and  boundary  conditions . _ 

i 

Behavior  of  the  nonsymmetric  laminates  is  not  as  expect¬ 
ed.  Most  results  indicate  the  nonsymmetric  laminates  to  be 
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stiffer  than  the  corresponding  symmetric  layup,  contrary  to 
theoretical  predictions. 
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THE  USE  OF  A  HIGHER  ORDER  KINEMATIC  RELATIONSHIP  ON  THE 


ANALYSIS  OF  CYLINDRICAL  COMPOSITE  PANELS 


I.  Introduction 


Background 

Much  work  has  been  done  in  the  area  of  composite  cylin¬ 
drical  shells  over  the  past  few  years.  The  high  strength  to 
weight  ratios  and  the  ability  to  tailor  material  to  meet 
specific  design  goals  make  composite  structures  ideal  for  many 
applications,  especially  in  the  aerospace  field.  Noor  and 
Burton  have  gathered  extensive  information  on  developments  in 
this  field  (13;  14).  A  few  key  developments  are  presented 
here. 

It  has  long  been  known  that  Classical  Plate  Theory,  based 
on  the  Kirchhof f-Love  hypothesis,  tends  to  produce  large 
errors  when  dealing  with  advanced  composite  materials.  The 
Kirchhof f-Love  hypothesis  assumes  that  straight  lines  normal 
to  the  undeformed  shell  midsurface  remain  straight  and  normal. 
In  other  words,  transverse  shear  strains  are  neglected, 
resulting  in  overestimates  for  the  buckling  loads  and  natural 
frequencies. 
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Reissner  was  the  first  to  recognize  the  need  to  include 
the  effects  of  transverse  shear  effects  (23).  Mindlin 
followed,  and  added  the  effects  of  rotary  inertia  (12).  The 
so  called  Reissner-Mindlin  theory  assumes  that  while  cross 
sections  remain  plane,  they  are  allowed  to  rotate  around  the 
normal.  This  theory  does  not,  however,  satisfy  the  boundary 
conditions  of  zero  transverse  shear  on  the  top  and  bottom 
surfaces  of  the  shell.  This  requires  application  of  a 
correction  factor,  and  is  commonly  accepted. 

Reddy  (20;  21;  22)  assumed  that  the  displacements  of  the 
middle  surfaces  are  cubic  functions  of  z.  This  leads  to  a 
parabolic  distribution  for  the  transverse  shear  strain,  and 
does  not  require  a  correction  factor.  Linneman  and  Palazotto 
(10;  16)  used  this  approach  in  developing  solutions  for  the 
critical  buckling  loads  and  natural  frequencies  for  symmetric 
laminated  cylindrical  shells. 

Recently,  there  has  been  interest  focused  on  nonsymmetric 
laminates.  Nonsymmetric  laminates  have  coupling  present 
between  their  extensional  and  bending  behavior,  and  thus  are 
not  desirable  in  many  engineering  applications.  However, 
sometimes  their  use  cannot  be  avoided,  and  delamination  in 
symmetric  laminates  create  a  need  to  understand  the  effects  of 
nonsymmetry.  Whitney  (28)  applied  Donnell-type  equations  to 
laminated  cylindrical  shells.  Reddy  (21)  used  a  Navier 
solution  for  cross-ply  antisymmetric  shells.  Chen  and  Shu  (5) 
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applied  large  deformation  theory  including  shear  deformation 
to  thick  nonsymmetric  laminates .  Burt  and  Kumar  ( 1 )  looked  at 
shells  of  bimodulus  composite  materials,  which  display 
bending-extension  coupling  analogous  to  nonsymmetric  lami¬ 
nates  . 
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Objectives 


This  thesis  will  apply  a  higher  order  shear  deformation 
theory  to  nonsymmetric  composite  cylindrical  shell  panels. 
Solutions  for  the  critical  buckling  loads  and  natural  frequen¬ 
cies  for  different  geometries  and  boundary  conditions  will  be 
found.  Comparisons  will  be  made  against  solutions  for 
symmetric  laminates  using  similar  theories.  The  effects  of 
varying  the  radius  of  curvature  and  span  are  also  investigat¬ 
ed. 


Approach 

The  approach  taken  for  this  thesis  parallels  that  used  by 
previous  analyses  in  this  area  (2;  10;  IB).  Displacement 
fields  are  assumed  based  on  Reddy's  parabolic  shear  strain 
model  (20;  21;  22).  Strain  displacement  relations  are  devel¬ 
oped  using  a  linearized  form  of  Sander's  equations  (4;  10). 
Equations  of  motion  are  derived  using  Hamilton's  principle 
(11;  25),  and  incorporating  laminate  constitutive  relation¬ 
ships  (9).  Galerkin's  Technique  is  than  applied  (11;  27). 
Appropriate  admissible  functions  are  chosen  to  represent  each 
boundary  condition  studied.  The  resulting  Galerkin  equations 
are  then  placed  into  a  FORTRAN  code  that  generates  an  eigenva¬ 
lue  problem.  The  solutions  are  the  critical  buckling  load  or 
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the  natural  frequencies  for  the  particular  ply  characteristics 
and  geometry  specified. 

Convergence  characteristics  are  investigated  to  check  the 
validity  of  the  Galerkin  solutions.  Comparisons  of  results 
are  made  for  boundary  conditions,  ply  orientations,  and 
symmetry. 
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II.  Theory 


Strain-Displacement  Relations 


The  coordinate  system  for  the  circular  cylindrical  shell 


\  ✓ 
N  ✓ 


Figure  1.  Shell  Panel  Coordinates 


panel  is  shown  in  Figure  1 .  The  x  and  y  axes  are  located  at 
the  midsurface  of  the  laminate,  at  z  =  0.  The  degrees  of 
freedom  Ujj(x,y,t),  v^{x,y,t),  and  Wjj(x,y,t)  are  the  displace- 
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m 


ments  of  the  laminate  midsurface  in  the  x,  y  and  2  directions 
respectively.  The  degrees  of  freedom  T„(x,y,t)  and  7„(x,y,t) 
are  the  bending  rotations  of  the  cross  section  from  the  normal 
with  respect  to  the  y  and  x  axes,  respectively.  R  is  the 
radius  of  curvature,  h  the  laminate  thic)^ness,  a  the  length  in 
the  X  direction,  and  b  the  length  in  the  y  direction. 

The  displacement  field  to  be  used  for  this  work  was 
presented  by  Reddy  (20;  21;  22),  with  one  modification.  The 
forms  for  u  and  v  were  chosen  in  order  to  provide  a  parabolic 
shear  strain  distribution  across  the  thickness  of  the  lami¬ 
nate.  In  addition,  the  assumed  displacement  w  is  a  linear 
function  of  2.  Whitney  (29:315-319)  applied  this  concept  to 
a  flat  plate.  As  a  result,  is  not  equal  to  2ero,  but  is 
constant  across  the  thickness.  Related  work  has  considered 
to  be  2ero,  thus  simplifying  the  problem  (10;  18).  The 

following  development  will  include  as  a  constant  value 

through  the  thickness. 

The  assumed  displacement  fields,  to  meet  the  ideas  stated 
above,  can  be  written  as  follows: 

u(x,y,z,  t)  =  Uo  + 
v(x,y,z,  t)  =  (1  + 

\  Rf  (1) 

w(x,y,  z,  t)  = 

(each  of  the  functions  shown,  u^^,  -v^,  and  7^  are  functions 
of  X  and  y  only,  not  of  2).  The  values  of  ®2 
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will  be  found  such  that  the  boundary  conditions  of  zero 
transverse  shear  strain  at  the  top  and  bottom  surfaces  of  the 
laminate  are  satisfied.  The  function  $(x,y,t)  represents  the 
strain  constant  through  the  thickness. 

The  strain-displacement  relations,  for  a  circular 
cylindrical  shell,  are  based  on  Sander's  equations  (4:195;  7; 
24:595).  They  can  be  stated  as  follows: 


where  (  ),^  represents  partial  differentiation  with  respect  to 
X,  etc. 

The  quantity  z/R  is  assumed  to  be  approximately  zero  for 
the  transverse  shear  strains  in  the  yz  and  xz  planes.  For  the 
remaining  strains,  the  following  binomial  expansion  is  made: 
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This  approximation  allows  the  strain-displacement  relations  to 
hold  for  deeply  curved  panels,  with  a  height  to  radius  of 
curvature  ratio  up  to  1/5  (7). 

As  shown  in  Appendix  A,  if  the  transverse  shear  strains, 
Yyj  and  Yxz'  equal  to  zero  at  the  top  and  bottom 
surfaces,  the  values  of  the  unknown  coefficients  in  the 
displacement  relations  are  found  to  be: 


4>i 


<l>2 


2 


01  =  k(i|fj^  +  w,^) , 


02  =  ki^y  +  W,y) 


where  k  =  -4/3h^. 

The  displacement  field  thus  becomes: 

p 

u(x,y,z,  t)  =  +  ^o,x^ 

+  z^ic(i|ry  +  w,y) 

(6) 

w{x,y,z,  t)  =  Wg  +  zl 


v(x,y,z,t)  = 


\  Rl  ° 


Z^y  -  Z' 


hi 

2 


Using  these  displacements  in  Sander's  equations,  Eq  (2), 
the  strain-displacement  equations  become: 
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“  ^o.x  *  ^ 


-  ^2'*'  XX 


=  '^O.,  ^  ^  ^  *  i)  -  *  %) 


+  z- 


^(’I'y.y  ^  '^o.yy)  + 


yy 


2R 


-  z*—  (l|f  +1/  ) 

jj'^y.y  o.yy' 


fiz  =  5 


Y  =  li  +  V  +  z/ilf  +  Uf  +  — ^  ( V  -  u  )\  ~  +  f 

Tzy  ^o.y  '^o.x  -Z^Vx.y  Vy,x  2J?  '  ^  2?  ^ 


+  z^ic(ilf  +  ilf  +  2w  )  ~  z*— (it  +  w  ) 

X.  j\.\Yx,y  "ry.x  ^"'o.xy'  ^  o.xy' 


'o.xy' 


"iyz  =  ♦y  +  '^o.y  +  3z2ic(T|ry  +  W^y) 
y xz  ~  ^*x  '*’  ^o,x  ■*■  3z  ic{t(fjj  + 


(7) 


These  expressions  can 
simplify  later  usage, 


be  presented  in  matrix  notation  to 


ex 

el 

K® 

''x 

fxM 

[k^I 

•'•x 

0 

«y 

e; 

n® 

Ry 

Ky 

Ry 

e* 

►  s  . 

e* 

-  +  z  ‘ 

0 

•  +  z^  ■ 

0 

1 

•  +  Z^  ’ 

0 

•  +  Z^  ‘ 

0 

Yxy 

Y^ 

r® 

■'■xy 

Kxy 

Nty 

*^xy 

Yyz 

Yyx 

0 

Kyg 

0 

0 

Yxz 

.-O 

0 

IC^ 

0 

0 

Yxz 

r". 

(8) 


Note  the  superscripts  on  the  x^  terms  are  not  exponents,  but 
for  identification  purposes  only,  to  distinguish  among  the 
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higher  order  terms  (21; 22).  The  strains  at  the  midsurface  and 
curvature  terms  are  defined  below: 


Kxl  +  *'o.xx) 

<ir^*=.ir(i|r  +W  )  +  ^  . 

Ry  T  W^  yyl  ^ 

^y.x  *  ^^o,xy, 


(10) 


(11) 


(12) 
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(13) 


Equations  of  Motion 

The  displacements  and  strain  relations  will  now  be  used 
to  find  the  equations  of  motion  and  associated  boundary 
conditions.  The  basis  for  this  development  is  Hamilton's 
Principle,  which  states 

^2 

j6  {T  -  U  -  V)  dt  =  0  (14) 

where  T  is  the  kinetic  energy,  U  is  the  strain  energy,  and  V 
is  the  potential  energy  due  to  external  forces  (11;  19;  25). 
The  symbol  6  represents  the  first  variation  of  the  enclosed 
quantities . 

The  kinetic  energy  is  defined  as 

A 

t  a  2 

T  =  j  ^  J  -ip(  )dz  dx  dy  (15) 

0  0 

'  2 

where  p  is  tho  mass  density. 

It  was  decided  to  focus  the  scope  of  this  thesis  on 
investigating  nonsymmetric  ply  lay-ups.  Therefore,  in  order 
to  isolate  the  effect  of  the  nonsymmetry  from  the  transverse 
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shear  effects,  the  direct  strain  was  eliminated  from  the 
strain  relationships  by  assuming  the  value  of  ^  to  be  zero. 
The  displacements  and  strain  relations  thus  become  those 
presented  by  Linneman  (10:12). 

Based  on  these  simplified  equations,  the  squares  of  the 
partial  time  derivatives  of  the  displacements  are  as  follows: 

=  lij  +  (2z  +  2kz^)ujf^  +  +  2icz^  +  k^z^)^% 

+  {2kz^  +  2kz^)  ^ 

v2  =  |l  +  2-|jvJ  +  |l  +  -|j(22  +  2kz^)vjfy  +  2|l  4-  ^kz^v^w,y 

{z^  +  2kz*  +  k^z^)^]^  +  (2i:z‘  +  2k^z^)^yW,  y  +  k^z^^.y 


At  this  time,  the  following  definitions  for  the  mass 
moments  of  inertia  are  introduced: 


h 

2 


f 


z,  ,  z^ ,  z* ,  z^)  dz 


(17) 


with  the  following  simplifications  (21;  22): 


+  icJ* 
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^2'  =  ^2  ^ 

J3  =  -kl^ 

=  -^^4  -  1^5 

14  =  J3  +  2JCI5  +  Jc^l, 

15  =  -icJs  -  Jc^J, 


The  kinetic  energy  becomes : 

b  a 

if  I  <  ^1“'  ^  2I,uJ,  -  2%u,w.^  +  1,^1 

00 

+  ic2j,(;r,|  +  j/v|  +  axX’i'y  -  2iiv^w,y 
-  2I^^y^,l.  +  J^v^)  dx  dy 


Taking  the  first  variation 


(19) 


b  a 

fir  =  J  I  [(Xiiio  +  -  I:^w.y)6ij^  +  -  J5V,^)6i|f^ 

+  (-I3U0  -  J5+X  +  -  liw,y)hv^ 

+  (jjVj,  +  I^^y  -  I^W,y)h’ify  +  (jjVp  -  Jjiiry  +  k^I^W.y)bWy 

+  dx  dy 

(20) 
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The  final  form  of  the  variation  in  kinetic  energy  is 
obtained  by  integrating  by  parts  the  quantities  and  6W. 

with  respect  to  x  and  y,  and  then  integrating  the  entire 
expression  with  respect  to  time.  As  described  by  Meirovitch 
(11:45-46),  the  variations  of  the  degrees  of  freedom  over  the 
interval  t^  and  tj  are  zero;  thus  this  contribution  to  the 
integration  by  parts  vanishes.  This  leaves  the  following: 

^2  b  a 

I  =///[■  -  (^1^0  * 

ti  0  0 

-  llw,y)6v^  +  [laflo.x  ^S^x.x  *  ^i^o.y  ~  ^^^1^^'xx 

+  Wyy)  +  Is^y,y  +  Jswjdw  -  -  J5W,^6i|r^ 

-  (J^v^  +  I^^y  -  IsW,y)6r^y  )  dxclydt  (21) 


The  strain  energy  is  developed  according  to  procedures 


presented  in  (11),  (19),  and  (25).  The  first  variation  of  the 


strain  is  written  as  follows: 


h 

b  a  2 

/  /  (®xSex  +  Oy^ey  ^xy^yxy  *  ‘^yz^yyz  *  dxdydz 

0  0  h 

2  (22) 


It  is  convenient  at  this  point  in  the  development  to 


introduce  the  constitutive  stress-strain  relationships  for  the 
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laminated  structure,  as  these  relations  will  result  in  force 
resultants  that  will  simplify  the  strain  energy  foirmulations. 

As  defined  by  Jones  (9:45-51),  the  constitutive  relations 
for  a  single  orthotropic  layer  in  the  principle  coordinate 
system  shown  in  Figure  2  are 


ex 

’^11 

^12 

0 

®x 

«y 

^22 

0 

0 

0 

^66. 

(23) 


Figure  2.  Lamina  Material  Coordinates 
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The  S^j  are  compliance  terms .  They  can  be  written  in  terms  of 
the  engineering  constants  as  follows: 


= 


^22  = 


^2 


(24) 


Here  are  the  Young's  moduli  in  the  ith  direction,  v^j  are 
the  Poisson's  ratios,  and  are  the  shear  moduli  in  the 
corresponding  i-j  plane. 

The  above  equation  can  be  inverted  to  obtain  the  rela¬ 
tionship  for  stress  in  terms  of  strain: 


Ox 

On 

O12 

0 

»  s 

O12 

Or 

0 

0 

0 

Ose. 

f*’yz  _  C^44  ® 

®  ^55, 


(25) 


Here,  are  the  reduced  stiffness  terms  and  are  defined  as 


Oil  = 

O22  = 


gi 

i  ”  '^12''21 
^2 

1  ~  ''l2'’21 


O12  = 


^12^2 


V21^1 


1  ~  ''l2''21  ^  ~  '^12'^21 


0s«  ~  Oj2/  O44  -  G23,  O55  =  G3J 


(26) 
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Eq  (26)  applies  only  to  a  laminate  in  which  the  fiber 
orientation  (1-2  coordinates)  coincides  with  the  x-y  coordi¬ 
nate  axes  of  the  structure.  Generally,  this  is  not  the  case. 
For  laminae  with  the  fibers  oriented  at  some  angle  0  from  the 
x-y  axes  as  shown  in  Figure  3  below,  the  reduced  stiffness 
matrix  [Q^j]  of  Eq  (26)  must  be  transformed  to  reflect  the 
rotation  of  the  laminate  axes.  The  transformation  matrices 
are  defined  below,  where  m  =  cos  0  and  n  =  sin  0 


[Qij]  i,j=  1,2,6 


use 


2ittn 

-2ian 

-ran  ran 


(27) 


[Oij]  i/  J  =  4,  5 


use 


T  = 


la  n 
-n  jn 


(28) 


Figure  3.  Arbitrary  Lamina  Coordinates 
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The  transformed  stiffness  matrices  are  thus  found 


[Oij]  “  [Oij]  [T\-^ 


(29) 


The  lamina  constitutive  relations  can  now  be  written  as 


Ox 

Oil  O12  O16 

Oy 

‘  = 

O12  O22  O26 

®y 

k 

O16  O26  066. 

k 

(30) 


where  k  denotes  the  kth  lamina.  The  Q.^  terms  are  given  by  the 
following  simplified  relationships: 

On  =  0iiCos*6  =  2(0i2  Osfi)  sin^Ocos^O  +  O22Sin*0 

^12  ■  O22  ~  4066)  sin20cos20  *  Oi2(cos^0  +  sin^0) 

O22  -  OiiSin^0  +  2(0i2  +  2  066)  sin20cos*0  +  022^03^0 

On  =  (On  -  O12  -  2066)  sinOcos^O  (On  "  O22  +  2066)  sin^0cos0 

O26  ~  (On  “  O12  -  2066)  sin^0cos0  *  ((?i2  -  022  +  2066)  siii®cos^0 

On  =  (On  O22  -  2O12  -  2O66)sin20cos20  +  O66(sin‘0  +  cos^0) 

O44  =  O44COS20  +  OssSin^O 
O45  =  (O44  -  O55)cos0sin0 
O55  =  O55COS20  +  O44sin20 
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The  final  form  for  the  stress  in  the  kth  lamina  is  found 
by  substituting  the  strain  expressions  and  the  transformed 


reduced  stiffness  terms  into  Eq  (31) 


• 

' 

Oil 

Ol2 

O16 

ICx 

f°i 

0 

>  = 

0i2 

O22 

O26 

ey 

*  z  ' 

x° 

■  »  2‘  4 

>  +  ' 

>  +  z^  • 

V 

► 

k 

,0i6 

O26 

Ose 

k 

ic^ 

^xy 

^xy 

. 

j^yx 

O44 

O45 

W  .  I 

Ky. 

*  S 

>  +  Z^  - 

► 

bxzj 

O45 

O55J 

k 

ky  1 

_ 

<xz 

(32) 


The  stress  over  the  entire  laminate  is  obtained  by 
integrating  the  individual  laminae  stresses  over  the  thick¬ 
ness.  This  produces  quantities  representing  the  resultant 
forces  and  moments,  plus  higher  order  terms,  acting  over  the 
laminate.  These  are  shown  below: 


h 
2 


(l,z,z^,z^,z*)dz 


N 

■Si. 


(o. 


(1,  z,  z^,  z^,  z*)  dz 


(1,  z^)  dz 


(1,  z^)  dz 


(33) 
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The  quantities  {N^},  and  {Q^},  represent  the  resultant 
forces  and  moments  found  in  conventional  laminated  plate 
theories  (9:154;  29:239).  The  remaining  quantities  {S^},  {P^}/ 
{L^},  and  {R^}  are  higher  order  resultants  from  the  parabolic 
distribution  of  the  transverse  shear  strain  (10;  21). 

The  expressions  for  the  stresses,  in  terms  of  the  trans¬ 
formed  reduced  stiffness  matrices.  Eg  (32),  and  the  strain 
relations,  Eq  (8),  are  now  substituted  into  the  above  expres¬ 
sions,  and  the  terms  independent  of  z  brought  outside  of  the 
integral.  Finally,  the  following  notation  for  the  laminate 
stiffness  matrices  is  introduced: 


(Aj,j ,  ,  Dj^j ,  E^j ,  F^j ,  ,  H^j ,  ,  J^j)  - 

i  =  1,2,6 


**-1 


7  i  =4,5  (34) 

*■1  ^ 
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Eq  (33)  may  now  be  written  in  matrix  expanded  form 


■^11 

•^12 

^16 

^11 

S12 

^11 

^12 

^6 

^11 

^12 

^16 

^11 

^12 

^le' 

► 

■^12 

^22 

A26 

Bi2 

^22 

^12 

D22 

I?26 

£12 

B22 

^■12 

■^22 

^^26 

y 

-0 

^xy 

^16 

-^26 

B^e 

B,e 

^16 

^26 

^66 

^26 

^66 

^16 

■^66 

' 

^11 

^12 

^11 

^12 

^16 

Fxx 

^12 

^16 

^11 

^12 

K° 

'M2 

► 

^12 

B22 

^26 

^12 

•®22 

^26 

Bi2 

•^22 

■^26 

^12 

^22 

^26 

1C® 

Ry 

^16 

^26 

^66 

^16 

^26 

^66 

■^26 

•^66 

^16 

<?26 

^66 

1C® 

•^xy 

Fi2 

^16 

^11 

Gi2 

^16 

B22 

^16 

0 

►  = 

Bi2 

F22 

^26 

^12 

^22 

^26 

H,2 

B22 

^^26 

Ky 

•^26 

^66 

f?26 

^16 

^26 

^66 

l^xy 

(^1 

s 

Y 

/f 

Af 

Bi2 

^16 

Jll 

■^12 

-^16 

2 

P2 

► 

^12 

B22 

^26 

■^12 

■^22 

■^26 

Kx 

Pg 

^26 

^66 

-^16 

^26 

•^66 

Ry 

‘^11 

J12 

‘^16 

J'-xy 

1 

*^12 

<^22 

1^26 

0 

► 

2 

■ 

J16 

J26 

<^66. 

Xy 

^2] 

► 

^44 

^45 

i?44 

^45 

Pi 

^55 

i^45 

^55 

^2! 

^44 

^45 

i=’44 

^’45 

>i| 

► 

^55 

J"45 

^5 

(35) 


With  these  expressions  now  in  hand,  the  formulation  of 
the  remaining  terms  in  the  energy  development  will  be  much 
simpler.  Substituting  the  strain-displacement  relations  into 
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the  variation  of  the  strain  energy  and  integrating  with 
respect  to  z,  the  resultant  quantities  from  Eg  (35)  may  be 
substituted  to  produce  the  following: 

b  a 

6U  =  f  J 

0  0 

+  PjfiKy  +  L2^Ky  +  -^^Yxy  *  ^e^^xy 

+  L^bKly  +  OafiYyz  +  Rz^^yz  +  OlfiYxz  +  Pi6Ki,)dxdy 

The  expressions  for  the  strains  at  the  midsurface  and 
curvature  terms,  Eq  (9)  through  (13),  are  now  substituted  into 
the  above  expression.  After  collecting  terms,  one  obtains 

b  a 

f  I  [W,8u,,,  ♦  («i 

0  0 

+  (2kP^  -  ^kL^)6w,^  +  (C>2  +  3kR2)tw,y  +  (Oj  +  3JcPi)6w,^ 

+  (Afi  +  APi)6t^,^  +  (C>i  +  3icPi)6i|r^  +  {Q^  +  3icP2)6i|ry 

+  (Afj  -  1S2  *  kP2  -  ^kL2)6ify^y  *  {M,  *  kP,)b^y^, 

(37) 

After  integrating  by  parts,  the  final  expression  for  the 
variation  of  the  strain  energy  is  obtained: 
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t  a 


8cr  =  /  /  K-Wj,,  -  +  (-Wj,,,  - 


0  0 


2R  '  "^'y  ■  '’'•*  2R' 

+  [■^(■Pi,xx  '*’  ^2,yy  ^^6,xy  ~  ^2,y  ~  ^l,x  ~  '*’ 

^  (^2  -  ]  6W  -H  [3ici?,  -  ic(P,,, 

-  M^,y  +  Oi  +  -|(S,,3,  +  kL^J]bJ^,  +  [3kR2  -  ic(P2,^  +  P,,J 

-  M^.y  *  ^  <^2^3,  +  kl^^y)  -  +  Q^]  6il»^]  dxdy 

b 

+  f  [N^bu^  +  +  ^m,)6v^  +  [-■?^(^’i.x  2P6,y)  +  Pi  +  SicPi 

Q 

-1  x=a 

+  ~kL^  ]bw  +  (Afi  2icPi)6i|rjf  +  +  icPg)  dietailf  J  |  dy 

“  '  x»0 

a 

*  ■*  *  Oi  -  ikR, 

0 

+  lic(L2,y  +  L,,,)]6v+  [M,  *  icP,  +  ^(-5^  -  kL,)]bi\f^  +  [M^ 


+  2JCP2  +  4  ^■‘^2  -  2kL2)]6j^yTdx 


y»0 


y-i  x-« 


+  ic[2P,  - 

■K  y»0  x-0 


(38) 


The  final  component  in  Hamilton's  Principle  is  the 
potential  energy,  V,  of  in-plane  forces.  It  is  defined  as 

b  a 

V  =  f  f  {N^t^  *  N^ty  *  N^y^)dxdy  (39) 

0  0 

where  N^,  Nj,  and  N^,  are  the  initial  in-plane  loads,  and  c^. 
By,  and  Yjjy  are  the  midplane  strains  due  to  the  displacement  w. 
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These  strains  are  normally  considered  in  large  deflection 
analysis,  and  only  nonlinear  bending  terms,  those  involving  w, 
are  considered.  In  linear  theory,  these  second  order  strains 
are  used  in  determining  critical  buckling  loads  (29:241).  For 
the  problem  presented  here,  the  strains  take  the  following 
form; 


1 

2 

®x  = 

2^'x 

1 

2 

II 

u 

'xy 

w,^w, 

The  first  variation  of  the  potential  energy  is 


(40) 


b  « 


6’/  =  /  f  +  N^w,y)bw,^  +  +  N^w,^)iw,y  +  *1^26^  jdxdy 

(41) 


After  integrating  by  parts,  the  final  form  of  the  first 
variation  of  the  potential  energy  is  as  follows: 
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hwdxdy 


b  a 

~^1^>XX  ~  xy  ^2  1"^  “  ’*^'yy| 

b  ^  a  ^ 

•*•  /  K"  '  X  ■"  ^6^'^  bw  \  dy  +  f  (p2^'y  +  !  dx 

0  °  0  ’ 


(42) 


The  expressions  for  the  first  variations  of  the  kinetic, 
strain,  and  potential  energies  are  now  substituted  back  into 
Hamilton's  Principle,  Eq  (14),  to  produce  the  following: 


Jb  a 


/  /  /  *  "l.x  -  "e.y  - 

ti  0  0  ^ 


+  +  ^2^y  *  ^i^>y  *  ^2.y  *  ^6.x  * 

[~-1^3^o,x  ~  ~  ^Z^o.y  *  ^  XX  ~  yy^  ^^^y,y 

-  I^W  -  J^(P]_^xx  '*'  ^2,yy  *  '*’  ^2,y  *  ^l,x 


*  ^1,;.)  -  ^  ’  ka2,yy  *  ^  N,W,^  -K  2N,w, 


xy 


-  iVj  ( ~  -  w,  )]6w  dxdydt 

il 

*  [-X^a,  -  l4»x  ♦  A®,,  -  *(P.,X  *  Pe.y)  ♦  i^.x  *  *^,y) 

-  -  Cl  -  |(s.,,  *  *L,,,)]8*,  *  -  !.♦, 

+  Jjl^, y  +  kiP^^y  *  •Pg.x^  ^,y  *  ^,x  ~  ^■^2  ~  ^2 

-  ^  (52,y  +  ■‘*f^2,y)  ]  *^y  }  dxdydt 
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t2  h 

-f  /  {  *  IW.  +  ■*  2P.,,  *0,*3kR, 

Cl  o  ^ 

1  _ 

+  4^-C'6.y  +  (Afi  +  2i:Pi)6ilri,  +  +  icP6)6i|r  I  |  dydt 

■K  J  x«0 

^2  A 

■/  (  {  ^^'  ■  ■"  t-i:(P2,y  +  2P,,J  +  £>2  +  3kR, 

*  *  ^6.J  +  %'^,y  +  +  [^6  +  ^^6 

-  4  {^6  +  icLg)  ]  +  [Afj  +  2JCP2  -  4  (52  +  2icJ2)  ]  Sty 

K  J  y-0 

^2 

/f  1  ■»  y“*  -JfA 

I  ic[2P,  -  [  I  \  dt  =  0 

(  K  )  y-0  x-0 

(43) 

The  double  integral  in  the  above  equation  contains  the 
five  equations  of  motion.  The  two  line  integrals  represent 
the  geometric  and  natural  boundary  conditions  along  the  edges 
of  the  shell,  and  the  fourth  expression  gives  the  boundary 
conditions  at  the  corners. 

The  variations  of  the  degrees  of  freedom  Su^,  6v^,  6w, 
6f  ,  and  6¥  ,  are  arbitrary  and  generally  not  equal  to  zero. 
Therefore  to  satisfy  Hamilton's  Principle,  their  corresponding 
coefficients  must  equal  zero.  The  five  coupled  partial 
differential  equations  of  motion  for  the  panel  at  any  time  t 
are  therefore  defined  as  follows: 
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Corresponding  with  the  degree  of  freedom  6u^: 


N, 


6.y 


(44) 


with  6v^: 


'6,x 


2R 


Me.y  =  ^  ^2 


-  IjWfy 


(45) 


with  6w: 


+  P2.yy  ^  2P,.^)  +  o^.y  +  ^k{R,,y  + 


.1  [i\72  -  k(L^^yy  *  +  NjW,^  +  '  -^^2 


A  -  W 


“  *  ^S^x.x  *  ^3'^o.y  ~  k^Il^^'xx  ^»yy)  "*■  ■^S^'y.y  ■*■ 


(46) 


with 


k(P^.^  *  P,.y)  *  ^.y  - 


0i  ■  -^  (^6  y  kLf  y) 

W'l  ^  6,y  6,y 

= 


with  6Ty; 


ic(P2,y  +  Ps.x)  *  "2,y  ^.x  -  3ici?2  -  C>2  -  -|  (52,y  +  JcL^.y) 


(48) 


=  JjVo  +  J4ty  -  .15^/ 
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The  equations  of  motion  can  be  simplified  to  other  forms 
for  certain  applications.  If  R  is  taken  to  infinity,  they 
reduce  to  the  equations  for  a  flat  plate  with  parabolic 
transverse  shear  and  rotary  inertia  (19;  20;  22).  With  the 
following  terms  neglected: 


2R^‘y 

bv^: 

bw: 

-^^(1*2, yy 

the  equations  of  motions  reduce  to  Donnell's  equations.  (21) 

The  equations  developed  up  to  this  point  have  been 
general  in  nature.  For  this  thesis,  some  assumptions  have 
been  made,  and  are  introduced  at  this  point. 

First,  the  individual  laminae  are  assumed  to  have 
identical  material  properties.  Only  the  orientation  angle  0 
will  change  between  them.  The  mass  density,  p  is  a  constant 
across  the  thickness.  Thus,  integrating  the  inertia  terms 
defined  in  Eq  (17)  yields  the  following; 
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I,  =  I,  =  I,  =  I, 

=  0 

1^  =  11  =  ph 

^3  =  Is  = 

2,  = 

^  12  ® 

80J? 

’  448 

=  j '  = 

ph^ 

Z  . 

'i 

11 

2  15R  2 

60R' 

^  315  ' 

^  315 

(50) 


In  addition,  in-plane  inertia  is  not  considered  here, 
only  rotary  inertia,  as  in-plane  inertia  tends  to  increase  the 
frequencies  of  vibration.  It  follows  that  the  following 
inertia  terms  equal  zero:  vi^,,  and  Bowlus  (2) 
and  Palardy  (15)  determined  that  the  effect  of  rotary  inertia 
was  negligible  for  the  vibration  of  flat  plates  using  Mindlin 
shear  theory.  Linneman  (10)  found  the  same  was  true  using  the 
higher  order  shear  theory  for  first  mode  analysis.  However, 
as  its  effect  becomes  more  important  for  higher  modes,  it  will 
be  included  in  this  general  development.  Finally,  all  time 
dependencies  were  assumed  harmonic.  This  allows  the  time 
dependence  to  factor  out  of  all  the  equations. 

Implementing  these  assumptions  in  the  preceding  para¬ 
graphs  results  in  the  simplification  of  the  equations  of 
motion  and  associated  boundary  conditions  to  the  following: 
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corresponding  to  u  , 


Xf  0 

/  /  ^6.y  - 

0  0 

b  a 

/x^a  f  -  yi 

N^hu^  I  dy  +  f  -  ^N^)5u^  I  dx=0 

X»Q  J  AlC  Vmrt 


(51) 


corresponding  to  v  ; 


*>'  0 

f  f  -  l'o)^w,y  +  N^^y  *  +  ^A4  ^)6v^  dxdy 

0  0 

b  a 

/-I  X“a  »  y«Jb 

I  I  dx  =  0 

jir«o  V  vbQ 


(52) 


corresponding  to  w: 


/  /  [-^sW^^^x.x  ’l^y.y)  -  ic2l,o2(v,^  +  V,  +  C>i.x 

0  0 

^^^l.xx  *  ^2,yy  *  2-Ps,jity^  '*’  Pz.y  '*'  '*'  ^i,x^ 

■  *1  1^2  -  +  ^.xy)l  ^l*^'xx  +  25^6^,^  ■  ~  ’^'y)15’^Cixdy 

£) 

^  »  x^a 

2Ps^p  0,  +  3/cR,  +  *  N,i^,y]6w  1  dy 

-  •*<  X"0 


0 


y  '*’  2-^5, ■•■  ©2  ■*■  3^2  ■*■  ■*■  ■*■  ^2^fy 


y’b  x‘a 


+  I  +  k{2P^  -  ^L^)6w  \  1  =0 

y«0  K  y«0  X-0 


(53) 


corresponding  to 


b  a 


0  0 


/  /  -  •^5“"'',,  *  ♦  J>S,,)  ♦  M,,,  *  -  0,  -  3klL, 

'  0 

b 

1  i* 

~  i  (^6.y  +  ^^e.y)  ]  6’|f*dJcdy  +  f  +  2i:Pj  6i|r^  |  dy 

x-0 

0 

a 

/1  y*^ 

[A^  +  JcPg  -  i  (^6  +  JcL6)]6i|r  I  dx-  =  0 

it  V«Q 


(54) 


corresponding  to  T  : 


jb  a 


0  0 


/  /  [■r4"“*y  -  *  klP^.y  *  P.,,)  ♦  «y.y  »  -  Oi 

0 

h 

■  +  icLj^y)  ]  a^Tydxdy  *  f  [M^  +  1 

K  x-o 

■  yfc 

+  r  [Mj  +  2JCP2  -  4  <^2  ■"  ]  6^y  n  dx  =  0 

•L  y*o 


-  3lcR, 


(55) 


Finally,  the  resultant  quantities  of  Eg  (33)  and  strain- 
displacement  equations  Eqs  (7)  are  substituted  into  Eqs  (51) 
through  Eq  (55)  with  the  use  of  MACSYMA  (17,  26)  to  obtain  the 
final  forms  of  the  equations  of  motion  and  boundary  condi¬ 
tions  . 
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Equation  (51)  corresponding  to  6Ug  becomes; 


/  /  +  Aie^o.yy  +  ^le'^o.xx  +  (^12  +  ^e) 

0  0 

■*■  -^26 '^o.yy  '*’  xxx  '*'  xxy  *  ^^12  "*’  xyy 

■*■  ^^26^>yyy  '*'  *  -Sll)  ^jc.xx  ■*■  2  {iC^16 

+  (iCf?66  +  B66)t|»^,yy  +  (kE^^  +  +  [k{E^2  +  ^66) 

'*’  ■®12  '*'  ^66^^y,xy  '*’  ^^^26  *  ^26^^y,yy  '*’  ~^{~-^l6^o,xy 
*  ^  4i2'^**  ^66^  ^o.yy  "*'  "2  AX  4 j^-^ee'^o.xy  '*'  '^'^ze'^o.yy 

+  +  [-ic(Fi2  +  2Fgg)  +  Ayy  ~  xjo^ 

*  ^16)+x.Ay  +  ^  ■"  ^«e)Hx.yy 


-[1(/CF„  +  I?„)  +  (1cF,2  +  +  [-|(^i^26  +  ^2*) 

+  <^^26  +  ^ae)  ]  ’►y.yy}*“o 


+ 


/  -Au^o.x  +  +  Ai2V^,3,  +  ^£’11**^/ XX  + 

0 

+  icFijfcrJyy  +  (icFii  +  +  {kE^^  +  Big)!|r^,y 

+  (/cF^g  +  Bi6)^fy.x  +  (^^^12  +  B^2^ify.y  *  ^  ['^B^^^o.y 

■*■  ~2^'^6^o,x  ■*■  •^12*'^  “  -^16**^' xy  ^  ^^li^'yy  ~  ^^^16  *  ^le^^x.y 

x«a 

-  (/CFi2  +  Bi2)l|fy,y  I  fiU^  dy 

X"0 
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corresponding  to  6v  : 


Jb  a 


•‘o.yy 


'  yyy 


a 

f  f  ^l€^o,xx  *  ^■^12  ^o,xy  ^6^0. XX  ^^€^o,xy  '*’  ^^2^o,yy 

0  0 

-  +  kE^^w,^  +  k{E^2  *  2£'66)v,^  +  2kE^^w.^  +  kE^^w.yyy 

+  {kE^^  +  5i6)’I'x.x*  +  n^^i2  S12)  +  (kE^^  +  +  {kE^^ 

*  B2^)^x.yy  +  +  (i^^'66  +  566)’l'y,xx  +  2(Jc£:2,  + 

■*■  (kE22  ■*■  ^22^  ^y.yy  *  j'^^ie^o^Joc  “  ~^^^66^o.xy  ~  ~2^26^c 

*  (Bgg  +  -^^Bgg)  Vq  +  SjgVg  jjy  +  (Ajg  +  ~2^^2f,'^ •  X  ■*■  ^22^' 

*  ~^^li^>xxx  ~  ■2^^66*'^' xxy  ~  ~2^^^26  ^26  ^  JOO'  ~  ^■^22**^/; 

+  I  {/cF,g  +  I?,g)  i|r,.^  -  I  t  (icFgg  +  Dgg)  +  -|  (icGgg  +  Egg)  ] 

-  (icFjg  +  B2g)l|r^,3^  i  ■"  •  -f  t  <^^26  +  ^26) 

■"  •"  ^26)Uy.jo^  -  (kF22  +  B22)+y,yy}  &Uc> 

b 

*  /  AieU^.x  +  AggU„^y  +  «  "■  2kE^^w,^ 

0 

+  kE2eW,yy  *  {kE^s  *  Big)i|r^^^  +  (icEgg  +  Bgg)^^,_^  +  (IcEgg  + 

■•■  (^^26  ■'■  ^26)'^y,y  ■*■  '^|'2 *  ^^66  *  ^o,x 


*  4-b,«v, 


’26  ''o.y 


*  ~  ~  "2 

■*■  "^^26^ ’'^'yy  '*’  ~2  ^^^16  *  Big)l|f»X,X  ”  —  [  (^cFgg  +  Egg)  +  —  (icGgg 

■*■  Bgg)  ]  ifx.y  *  ~2  ^^^66  ■*■  ^66^  ^y,x  ~  ~2  ^  ^^^26  *  ^26^  ■*■  ^^^26 

x«a 

■"^26)]+y,y}  I  dy 

irafl 
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*fA2^o,x  *  +  ^26^o.x  *  ^22K,y  *  ^^12*^/ XX  ^kE^^W,  ^  *  kE^^V,  y 

0 

+  ikEj^2  ■*■  ■®12^'^x,x  ■*■  ^^26  ■*■  ^26^^x,y  *  ^^^26  ■*■  ^26^^y.x  *  ^^^22 
*  -322)  ♦y.y  +  •|(■i^26Uo.y  ■"  -|^26''o.x  +  -  kF^^W.  ^  -  kF^^Vf.  yy 

-  {kF26  +  I>26)'l»x.y  -  (^^22  +  ^22)Hfy.y}  T  (57; 

corresponding  to  6w: 

b  a 

J  J  {N^w,xx  +  N^w.yy  +  -  k^I^ta^iw,^  +  w,yy)  + 

0  0 

+  XjO)  ■*■  ^^y,y)  “  ^^Xl^o.xxx  ~  xxy  *  *  ^X2^  ^o.xyy 

~  ^^26^0, yyy  ~^^X6^o,xxx  '*'  *  ^X2^  ^o,xxy  ~  ^^^26^o,xxy 

-  kE^^v^^yy  ^  (9k^F^^  *  6JCD55  +  A^^)w,^  *  (ISic^F.s  12kD^^ 

+  2A^^)w,^  +  (9k^F^^  *  €kD^^  *  A^^)w,yy  -  k^H^^w, ^ 

~  ■^16^'^'xxxy  ”  '*’  ^X2^  xxyy  ~  ^26^’  xyyy  ~  ^  ^22^'yyyy 

+  Oic^Fss  +  6JCD55  +  Ass)^,.;,  +  Oic^F^s  +  6icZ?45  +  ^45)1^^,^ 

+  {9k^F^^  +  6icD45  +  A45)i|ry,,  -*-  (9ic2F44  +  6kD^^  +  A44)i|ry,3,  -  k{kH^j_ 

+  ^ii)tx.xxx  -  3ic(ic;f„  +  -  ic(2Wfee  +  kH^2  *  2F,e 

■*■  ^12^ 'l^x.xyy  ~  k(kH2f  +  •^26^ ’l^x.yyy  “  k{kH.^^  +  •F’le^’l^y.xxx  ~  ^^2kH^^ 

*  ^^X2  '*’  ■*■  ^X2^^y,xxy  ~  2k{kH2^  +  Fjg)  ~  k{kH22 

+  ^22^  ^y.yyy  '*’  ”  ^X2^o.x  ~  ^26*^o,y  *  *^o, xxy  '*’  ^(2Fgg 

+  ^’12)  ^o.xyy  *  "2  ^^26*^o,yyy  ~  ^e'^o.x  ~  ^2'^o,y  ~  "2  ^^16 '^o, xxx 

+  —  icFjg  jjyy  +  kF22'^o,yyy  ~  2ic^i2^'xx  ~  ^ '^■^26  xy  2icF^2*'^/yy 
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^l^^>x3acy  +  -^12 ^  xxyy  '*'  xyyy  ^^^^22^>  yyyy 

{kEj^2  '*'  ^XZ^^x.x  ~  (■^■®26  '*’  -^26^  ~  ^^^26  *  ^26'^^y.x  ~  ^^^22 

+  ^22^^y,y  +  2ic(;cJi,  +  G,J  +  (3k^I,,  +  +  3kG,, 

■*■  -^^12^ 'l^x.xyy  '*'  ^icCicJjg  +  ^26)4^x,yyy  ■*■  ^^^^66  '*'  ^^^12  '*’  ^^66 
+  k(^12)'^y.xxy  +  +  2k{kl22  +  G22)’l'y.yyy 

^  ~  ^o.x^  ~  ~2^^66^^o,xyy  ~  ^o.xxy^  ~  '^•^^26  ^  *^o,yyy 

~  '^o.jtyy^  ~  •^22*'^  "*■  ^^^26^'  xy  '*’  ^^^22^>  yy  ~  ^  ^66^'  xxyy  ~  ^  *^26^’  xyyy 
^  '^22^'yyyy  '*'  ^^^26  ^2^'^  ^  x,y  *  (•^•^22  ^  ^22^^y,y  ~  k(kF^^ 

■*■  ■^66^'^X,xyy  ~  ^^^*^26  ^2i^^x,yyy  ~  ^^^^2€  '*'  ^26'^^y,xyy  ~  ^^^‘^22 

*  -^22)  ♦y.yyy}}®*^ 
b 

^  ^  {■^1*'^' X  *  ^6^*y  ~  ■^■^11^0, XX  '*'  ^^^l€^o,xy  ~  ^■^■^sc^o.yy  ~  ^^X€^o,xx 
0 

k{2E^^  +  .Eij)  Vj,  jjy  -  2kE2^v^  yy  +  O/c^Fjs  +  6kD^^  +  Asj)^,^ 

+  {SK^F^^  +  6/CD45  +  A45)v,y  -  k^H^xW,^  -  ^k^Hx^w,^  -  /c2{4if56 

+  ^i2)**^/xyy  ”  ^/C^HjgW^#  yyy  ■•  {9ic^j^55  +  SkD^^  +  '^5^  ^x  OiC^JF’^j 

+  6/cD„  +  A,5)i|r„  -  kikHxx  +  i^xx)  t|»,.xx  '  3/c(/cff,e  +  ^’x6)^'x.xy 

-  2k{kH,,  *  F,,)t|r,,3^  -  kikHx,  +  F^,)  -  {2k^H,,  +  k^Hx^ 

*  2kF,,  *  F, ,)♦,,„  -  2lc(icH,.  * 

*  2*F„U„,„  *  -|*F„v„,„  ♦  kF^,v^,„  -  kE^^v,^  -  2kE„»,y 

+  2k^Ix^W,  jg^  +  ic*(4Jjj  ^i2^^>xyy  '*'  yyy  2k{klx^ 

■*■  ^le^'^x.xy  '’"  ’*’  ^ee^'frx.yy  ■*■  ^■^^■^66  '*'  ^^^12  '*'  ^^^66 

+  2kGxx)^u.xy  +  3Jc(;cIa^  +  ^x^^^y.yy  *  o.yy 

~2^^6i^o,xy  *  -^FjgV, y  -  k^J^fW,jiyy  -  k^J26^'yyy  ~ 

x-« 

+  ^66)+x.yy  -  ic(^‘726  +  ^26)^y.yy}}  I  ^iV 
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^  +  k(2E,,  +  -  kE,,u^^ 


yy 


^■^■^66 '^o.xx  ^^^26^0, xy  ^^22^0, yy  '*’  ^kD^^  +  •^45)  ^/x 

+  Oic^F,,  +  6icD,,  +  A^^)w,y  -  2k^H^,w,^  -  kH^H^^  +  ^i2)‘^»xxy 

-  41:2^25^,^  -  k^H^^w.yyy  ^  ^  SkD^^  +  A45)’|fx  +  (9ic^F^4 

+  6icD,*  +  A44)ilr„  -  2k{kH^^  +  f’leJ’i'x.xx  “  (2Jc2/46  +  k^H^^  +  2JcF66 
+  ^^12)’l'x.«.  -  ^(^^26  +  ^26)Kyy  -  2ic(icH66  +  ^66)’l'y,xx  “ 

■*■  ■^26^'fry,xy  ~  ^(^^22  '*’  ^22^'^y,yy  "*"  "p  {■^•^16  *^o,xx  '*’  '*’  -^12^  ^o. 


jcy 


'*’  p  •^•^26 ^o.yy  '*’  ■y^^2€^a,xy  '*’  ^^22^o,yy  ~  ^^^26^*  x  ~  ^^22^'. 


2  ‘^^o.yy  2 

.2 


-j«y 


^  ■^16*'^'xwf  '*'  ^^-^66  '*’  •^I2^*'^'xxy  ''’  ^^^^2fi^’xyy  *  ^^^^22^'yyy 

*  Jc(JcJ„  +  +  (3/c2j,,  +  ic2j,2  +  3icG,,  +  icG^a) 

+  2;c(icj2,  +  GjJllTx.yy  ^  ^  +  4jc(icl26  +  G26)^y,; 

+  2k{kl22  +  ^22^ ’l'y,yy  ■*■  |  ”  *2  -"O'  ~  ~2^^2^^o,yy  ■*■  "^^^ii^o.xx 

*  ~2^^26^o,xy  *  ^^26^' X  *  ■^■^22**^'y  “  xxy  ~  xyy 

-  k  J22^'yyy  ~  '*"  ^66^'l^x,xy  ~  ^(^‘^26  "*■  ^Zi^^x.yy  ~  •^^■^‘^26 

■"  ^26)^y,xy  ■  ^(*‘^22  +  ^22 ) ’I'y.yy  }}}  ^ 

y.O 

+  {  *  2kE^^U^^y  *  2kE^^v^^^  *  2kE2^v^,y  *  2k^H^,w,  „ 

+  Ak^H^^W,^  +  2k^H2^w,yy  +  2k{kH^^  +  ^i6)tx,x  ■"  2Jc(Jcflse 
^  ^66)  tx,/-^  2;c(Jc/fs,  +  i"66)+y,x  ♦  2k{kH2^  +  i^26)+y.y 

'*’  ~'^'^16^o,x  ~  ^^^6<i^o,y  ~  ^-^26^'  o,y  *  ^^^26^  ~  ^^^^i6^>xy 

^  •^16**^' XX  ~  2k^l2^w,  yy  -  k{,klj^^  +  ^le^'l^x.x  ~  3ic(icJgj  + 

/c(icjgg  +  ^ee^^y.x  ■  2k{kl2^  +  ®26)^y.y  ■•■  ~  ^o.x^ 

-  kF2^w  +  +  k^J2^w,yy  ♦  lc(lcJ„  +  i46)tx,y  ■" 
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+  kF2^w  +  +  k{kiJ^^  +  H+SS)  +  k{kJ2i 


yt  x-a 

^26)^^y.y}}}5>*^  I  1=0 


y»0  jf«0 


(58) 


corresponding  to  67^ 

b  a 

f  f  +  Jc(Eii  “o.xx  +  2  (kF^e  +  Big)  +  (JcB, 

0  0 

^  ^66)  “o.yy  (^^16  ^16 )  (^^12  *  ^^66  *  ^12  +  ^66 )  '^o.xy 

+  {kE2^  *  ^2^)  v^  yy  —  {9k^F^^  +  SlcDgg  +  Agg)  ~  (SJc^B^g  +  & kD^^ 

+  W,  y  +  k(kH^^  +  •^11^  **^'xwf  '*’  3Jc(JcBjg  +  F^f^^tjcxy  (2ic^/fgg 

+  k^H22  *  2kF^^  +  kF^2^w.^  +  ic(icif26  *  Fit)  w.yyy  -  Oic^Fgg  +  eicDg 

+  Agg)t|r^  >  (iC^/f,,  ^  2iCF,i  -H  D2^)7x.XX  *  2  (k^H,,  ZkF^,  * 

+  (Ic^Beg  +  2]cFg,  +  ^  6Jd?,g  ^  A,5)l|»y  + 

^  2icFi,  +  I?i6)^r^,xx  ^  2JcFgg  +  2kF^2  *  ^66 

+  ^12)+y,xy  (^’^26  2icF2,  +  D2,)ify,yy  +  -||-|  (;cFi,  +  D2,)U^,^ 

~2  ^®®^  ^O.yy  *  ~2  ^^^16  '*'  ^16^  “  "2  ^^^66  *  ^66^  '^o.xy  “  ^^^26 

*  ■^26^  '^0,yy  '*’  ^■^^12  '*’  ■®12^^'x  '*’  ^■^^26  '*’  ^2^)  Y  ~  2ic(/cXj^5 

■*■  ^I6^**^'xxy  ~  ^^12'^  xyy  ~  2k(kZ26 

*  G26)^>yyy  '  2  >  2/CG,g  +  -  2  (ic^l.g  +  2iCGgg 

*  ®66)tx,>y  -  (^*-^66  ♦  ^'-^12  2icG^«  +  2;cG„  +  B,,  + 

2  (Jc^Jjg  +  2kG2f  +  •^26)i^y,yy  ■*■  ’^l'^  ^'^^66  "*■  ^66^  ^O.yy  ~  ~2  ^^^66 

■*■  ^o,xy  ~  ^^•^26  ■*■  ^2i^'^ty  ■*■  ^(^^66  ''■  ^66^  xyy  '*'  ^(•^‘^26 

+  ^2^)  *f,  yyy  +  (/C^JJlg  +  /Cffgg  +  F^f)  j^yy  +  (jC^JjS  ■•■  '^26 

^  ^26)ty.yy}}fifx  CteC?/ 
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+  /  {{2kE^^  +  5ii)Uo.x  +  +  (2/c£,6  +  +  (2ic£-, 

0 

+  ^i2)'^o,y  +  ic(2icHii  +  F^^)w,^  +  2k(2kH^^  +  F^^)w,^  +  k{2kH^^ 

+  F,2)hr,^  +  Uk^H^^  +  +  3^^16  +  ^le)^^,: 

+  (2ic2H,,  +  3i:F,e  +  Di6)’l'y.x  +  (2ic2i/,2  +  3kF,, 

"  ^  ^  (kF,,  +  |i3i6)v^o,x  (2kE^^  +  B,^)  l»r 

~  k{2kZ-y^  +  G-^f,)  ^1  xy  ~  k(2kZj^2  '*’  ^l2^**^'yy  ~  (2ic^Xjg  ■*■  3icGj^g 

^16)’l'x,y  -  (2ic2j,2  3kG^2  ^  ^^2>%.y}]  fi’lfx  T  dy 

a  X'O 

+  1  {(/cBig  +  Bi6)Uo.x  +  (^^66  +  566)“o.y  +  (^^66  +  ^0,X  +  (^^26 

0 

^  •®2«^  '^O.y  ^  -^16 )  **^<xx  2ic(icfl’gg  +  Fgg)  jcy  +  icCicBjs 

^26)‘^.yy  +  +  2icF,g  +  D^g)  4»,,^  +  (/C^Bgg  +  2i:Fgg  D66)llr,,3, 

+  (ic^Bg,  +  2;cFgg  +  DeJ’lTy,,  +  (ic^B^g  +  2icF2g  +  D2,)^y,y 
■^-|{-  (^^16  ^u)  “o.x  -  I  (^i^66  ^  Ac)  Uo.y  -  I  (i:Fgg  -K  Bgg) 

~  (lcF2g  +  ■^26^'^0,y  *  ^■^■^26  ■®26^  ~  ^16^  ^'XX  "’  3ic(^Xgg 

■*■  ^66^  ^'xy  ~  2Jc(JcJ2g  +  G2f)w,yy  -  ik^Z^^  +  2kG^^  + 

-  2(i:2Xgg  +  2JcGgg  ■*■  Fgg)i|r^  y  -  (ic^Jgg  +  2icGgg  +  £’66)4ry,x  "  2  (Jc^ 

+  2JCG3.  ^  t  ■|{-|(*G„  ♦  ii.)Uo,y  -  |<*G6.  * 

(ic^26  '*'  ^26^**^  *  *'  ^26^^*JT  ''"  ^^^^66 

+  2JcH„  +  J"..)*,,,,  t  (fcV,,  *  2Jcff3.  ♦  Pj.)  ♦,.,)))  '♦xT  dx  =  0 

y-o 

(59) 
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corresponding  to  6Ty 

b  a 

/ /  ^  (^^16  ^  ^  (*^66  ^  kE^2  *  ^66 

0  0 

+  By^2^  ^o.xy  *  (^^26  ■*■  ^2«>)  ^o,yy  *  *  ^66^  ^o.xx  *  ^  (^^26 

■*■  -^26^  ^o.xy  '*'  (^-^22  ■*■  -^22)  ^O.yy  ~  i^k^F^s  ■•■  SkD^^  +  A45)  W, 

-  {9k^F^^  +  6icD44  +  A^^)w,y  *  kikH^^  +  F^^)w,^  +  (2k^H^^  +  k^H^^ 

+  2kF^^  +  ■fc-Fi2^^'xxy  '*’  ^k(kH2^  ^26^  xyy  ^  k{kH22  *  ^22^^>yyy 

-  {9k^F^^  +  6icl?45  +  A45)4r^  -  (9ic2F44  +  6i:D44  +  A44)llr^  +  (k^H^e 

+  2JcFi6  +  D^6'>'^x.xx  ^  ^^^12  +  ^^^66  ^  ^^^12  *  ^66 

■*■  ^I2^^x.xy  *  (k^H26  *  2ic^26  ■*■  ^26^  ^x,yy  *  (^^■^66  *  ^kF^g 

*  ^f,f)^y,xx  ■*■  2  (iC^Hjg  +  2icf26  ■*■  ^S^^y.xy  *  ^k^^22  '*'  2iC-F’22 

■*■  ■^^22^  ^y.yy  *  2icFi2  "*■  -^66  ''■  ^^12^  ^o,xy  ~  "2  ^■^■^26 

+  Djg)  t^o.yy  '*'  ~2  ^^^66  *  ^66^  ''o.JOt  "■  ^^-^26  ■*■  •^26^  ^0,10'  ~  ^^^22 

*  ^22^  ^o,yy  *  ^^^^26  *  ^26^  ^'x  *  ^■^•^22  *  ^22^  ^1  y  ~  +  /C^J22 

■*■  kG^^  +  ^12  ^  xxy  ~  ^k{kl2^  *  ^26^^'xyy  ~  ^k(.kl22  ■*■  ^22^^'yyy 

-  *  k^I,2  ^  2kG,,  *  2kG^2  *  £’66  ^  E^2)^x.xy  "  2(k^l2, 

*  2kG2^  +  £26)’l'x.yy  “  2  +  2icG26  +  ^26)’l'y,xy  "  2  (ic2j22  +  2icG22 

+  ^22)^y,yy  ^  -|(|  <^®26  +  ^26^  ^o.yy  "  f  (^^26  •*■  ^26)  '^o.xy  '  (^£’22 
^  ■®22^  *'^»y  ■*■  k{kiJ2i  '*'  ^26^  ^ *  xyy  *  ■^(■^‘^22  ^  ■^22^  ^ '  yyy  ^  *^26  ^  2kH2 

+  £’26)Kyy  ^  <^"^22  *  2icH22  £’22)  ^'y.yy}}}  ^’•'y 
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+  f  {(kB^^  +  +  (icEgg  +  B66)Uo.y  +  {^^66  +  ^^6^  ^o.x  +  (^^26 

0 

■*■  ■®26  ^  '^0,y  ■^(■^^16  '*’  '*^  2ic{icH’gg  +  ■Fgc^^'^'xy  '*’  ■^(•^^26 

+  +  (k^H^,  +  2icFig  +  Dig)4r,,,  +  (ic^Hgg  +  2icFgg  +  P«)l|r,,^ 

+  +  2icFgg  +  •Og6)'lfy,jt  ■*■  ^^^^26  '*’  ^^^26  ■*■  •^ee^’fry.y 

+  ^{-|(^^66  ^66)l^0.y  ^  ^  ■D66)'^o,X  <^^26  ^ 

~  k(kl^^  +  Ggg)w,  -  Jc(icJ2g  +  ^26^  yy  ~  (•^^■^66  '*’  2JcGgg  +  .Egg)  l^x,: 

-  (Ar^jjg  +  2JcG2g  +  E2g)i|»y,y}}  fiil'yT  c?y 

a 

+  J^(2kBj^2  ■*■  ■®i2^  ^o,x  ■*■  ^^icEjg  +  B2^)  Ugy  +  {2kE2^  +  -^26^  ^o.x  ■*'  (2icE2 
0 

■*■  ^22^  ^o.y  *  2/c(/cfl'j^2  ■*■  ■^i2^*‘^'jc3c  ^  2k{kH2^  +  Ejg )  V, +  k{2kH22 
■*■  ■^22)**^'yy  '*’  (2ic^/fj^2  ■*■  ^^^12  ^12^ 't^x.x  "'’  '*'  ^^^26 

^  •^26^’l^x,y  ^  (2iC^H2g  +  3kF2^  +  -^26^ 'l*y,x  (2/C^E22  +  ^^^22 

■*■  ^22^ ’fry, y  "’’  ■^|”^2-^^12  ^  ^12^  *^o,x  “  (■^•^26  '*’  -^26^  *^o,y  “  ^•^■^26 

■’■  ^26)'^o,x  “  (2icE22  +  D22)V^  y  +  (2i:£’2  +  £22)’*^  -  ■fc(2icJi2  + 

~  3ic(2/cX2g  ■♦■  ^26^ ’'^'xy  ~  2k{2kl22  *  ^22'^  yy  ~  ^2ic  X22  ■*■  ^/cG^j 

■*■  ■^12) ’frx.x  '*■  2  (2Jc^X2g  +  3'^®26  ■*■  ^26)’frx,y  “  ^^^^^26  '*'  ^•^^26 

■*■  ^26^ ’fry, X  ~  2  (2Jc^X22  +  3icG22  ■•■  ^23) 'fry^y  +  "^{(^^26  '*’  ^26^  ’^o,y 

-  (icGjg  +  ^2f)^o,x  ~  (2jcF22  ■*■  ^22)^  *  ^(ZiC^Xjg  +  ^2f,^^'xy 

+  ki2kJ22  '*’  ■^22^’*^' 3T  '*’  (2ic^X2g  •*•  3icH2g  +  ’frx,y  '*’  1/22 

+  3;cH22  +  i"22)’fry,y}}}  *’fryT  =  0 

(60) 
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If  the  radius  of  curvature  approaches  infinity,  the 
equations  of  motion  above  reduce  to  those  of  a  flat  plate. 
For  symmetric  laminates,  the  extensional  stiffness  matrix  [B^^] 
and  the  higher  order  stiffness  matrices  [E^j],  [G^j],  and  [I^j] 
are  zero.  The  resulting  equations  for  u^  and  v^  are  then 
completely  decoupled  from  bending.  The  equations  will  only 
contain  extensional  stiffness  terms,  and  spatial  deriva¬ 

tives  of  Ujj  and  v^.  Similarly,  the  equations  for  w,  and 
will  only  contain  bending  and  the  remaining  higher  order 
stiffness  terms.  For  nonsymmetric  flat  plates,  the  equations 
for  Ujj  and  v^,  are  independent  of  direct  bending,  but  do  contain 
the  coupling  and  higher  order  terms. 

The  equations  of  motion  and  boundary  conditions  will  now 
be  used  to  solve  for  the  natural  frequencies  and  boundary 
conditions  for  the  cylindrical  shell  using  the  Galerkin 
technique . 


43 


Galerkin  Technique 


The  classical  Galerkin  Technique  is  an  approximate 
technique  commonly  used  to  solve  partial  differential  equa¬ 
tions  of  motion  of  the  form: 

J  J  FiCU.y))  iii(x,y)dydx  *  f  BCldi  ix,y) )  bC  (x,y)  \^dy 

X  y  y 

,  (61) 

+  j  BC2{Z(x,y))  bC(x,y)  \ydx  =  0 

X 

where  C(x,y)  represents  the  degree  of  freedom,  F(C(x,y))  is 
the  differential  equation  of  motion,  a  function  of  C(x,y)  and 
its  spatial  derivatives,  and  BCl(C(x,y))  and  BC2(C(x,y))  are 
the  associated  boundary  conditions,  also  functions  of  C(x,y) 
(11:235-237;  27:163-165). 

The  assumed  solution  takes  the  form 

^ix,y)  =  J}  5^  A^^^^x,y)  (62) 

a-l  n“l 

where  are  undetermined  coefficients  and  0(x,y)  are  known 
comparison  functions.  In  this  manner,  the  boundary  values  are 
automatically  satisfied,  and  no  longer  enter  the  problem.  The 
values  of  M  and  N  chosen  would  depend  on  the  degree  of 
accuracy  required  for  the  problem. 

Following  the  assumption  of  a  solution  for  C(x,y),  the 
variation  of  Eq  (62)  is  taken  with  respect  to  the  undetermined 
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coefficient  and  the  results  substituted  back  into  Eq  (61). 
The  result  will  be  M  x  N  equations  of  the  form 


//  (I?£’QAf(Aii<|)ii(x,y)  *  +  ...  +  A^<|>^(x,y) )  fiA^dydx 

X  y 

(63) 


Since  the  coefficients  are  arbitrary,  the  only  way  for  the 
set  of  equations  to  be  satisfied  is  that  each  integral 
identically  equal  zero.  The  M  x  n  integral  equations  can  then 
be  solved  simultaneously  for  the  coefficients. 

The  Galerkin  technique  will  now  be  applied  to  the 
equations  developed  in  this  thesis.  Since  there  are  five 
equations  involved,  five  assumed  solutions  are  required: . 


M 

If 

E 

■Ajnn^x  ma  y) 

jn*l 

n-1 

M 

N 

♦y(x,y)  =  52 

E 

B^y^{x,y) 

m=l 

n*l 

M 

N 

w{x,y)  =  53 

E 

C^^{x,y) 

JB”! 

M 

Uo(x,y)  =  51 

E 

E^u^{x,y) 

a>l 

f3*l 

M 

N 

Vo<x,y)  =  5^ 

E 

G^v^{x,y) 

jn«l 

n-1 

where  C^,  E^,  and  are  undetermined  coefficients 

and  the  "bar”  terms  are  assumed  solutions. 
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Choosing  comparison  functions  for  a  problem  such  as  this 
would  be  extremely  difficult,  as  the  natural  boundary  condi¬ 
tions  are  very  complicated.  Therefore,  admissible  functions 
are  chosen  instead.  Admissible  functions  satisfy  only  the 
geometric  boundary  conditions.  This  will  require  including 
the  boundary  conditions  in  the  Galerkin  formulation,  where  the 
use  of  comparison  functions  would  allow  them  to  be  ignored. 
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Boundary  Conditions 

This  section  will  outline  the  selection  of  the  admissible 
functions.  Three  boundaries  are  considered,  simply  supported 
on  all  edges,  clamped  on  all  edges,  and  a  combination  of 
clamped  and  simple  supports. 

For  the  simply  supported  condition,  the  following 
boundary  conditions  are  specified; 

at  X  =  0  and  x  =  a  w  =  yy=0 

at  y  =  0  and  y  =  b  w  =  7^  =  0 

In  addition,  an  S-2  type  boundary  as  described  in  Jones 
(9:244)  is  used  here  to  describe  the  normal  and  tangential 
displacements  at  the  edges.  Normal  displacement  is  allowed, 
while  the  tangential  displacement  is  zero.  Specifically, 

at  X  =  o  and  x  =  a  u„  0  and  v„  =  0 

at  y  =  0  and  y  =  b  u^  =  0  and  #  0. 

To  meet  these  conditions,  the  following  admissible 
functions  were  chosen; 
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M  N 


=  E  E  A^cos(-^)sini^^) 

fli-l  n-i  ® 


♦yU,y)  =  £  E 

jn=l  ij=i  3  « 

v(jc,y)  =  5]  C^sin(-^^)  sin( 

fli-i  jj-i  ^ 

u^{x,y)  =  E  E  ^mjCos  ( )  sin ( ) 
(x,  y) 


=  E  E  G^Bin(^)co&i^) 


nity. 
b  ’ 


h 

rmys 


with  the  corresponding  single  terms  associated 
variations : 

hu^:  cos("2M)  sin(-2^) 
a  b 

fiVp-.  sin  cos  (-2^) 

6L  D 

6w:  sin  (•^^)  sin  (-2^) 

B  D 

cos  (-^^)  sin  (  2^^) 
a  b 

6i|ry:  sin(^2L^)cos(-25^) 

el  b 


(65) 


with  the 


(66) 
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In  the  above  relations,  the  values  of  m  and  n  govern  the 
number  of  terms  in  the  Galerkin  equations,  while  the  values  of 
p  and  q  govern  the  number  of  equations. 

The  remaining  work  in  actually  deriving  the  Galerkin 
equations  was  performed  through  the  computerized  symbolic 
manipulation  system  MACSYMA  (17;  26).  Performing  the  remain¬ 
ing  calculations  by  hand  would  have  been  difficult  and  time 
consuming.  Appendix  C  contains  a  copy  of  the  MACSYMA  batch 
file  used  to  generate  the  equations. 

The  admissible  functions  and  the  single  term  expressions 
for  the  variations  of  u,  v,  w,  f  and  are  first  substituted 
into  the  five  equations  of  motion.  At  this  point,  Ng  and 
are  assumed  equal  to  zero.  MACSYMA  then  performed  the  integra¬ 
tion  over  the  double  and  single  integrals  representing  the 
equation  of  motion  and  corresponding  edge  conditions. 

The  results  of  each  integration  depend  on  the  particular 
value  of  m,  n,  p,  and  q.  From  the  choice  of  trigonometric 
admissible  functions,  the  following  integrals  are  known. 

a 

f  cos{I^)cos{^^)dx  = 

J  a  a 

0 

* 

f  sin(in!L5)sin(^2M)dx  = 

J  a  a 


m  *  p 


-  m  =  p 


0  m  =  p 

i 
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/•sin(^)cos(^)dx  = 
J  a  a 


0 

0 


12am 

n  (fl?2  -  p2) 


m  =  p 

m  *  p,  (m  +  p)  eve. 
m  *  p,  (m  +  p)  ode 


Thus  for  the  simply  supported  boundary,  there  are  only 

two  cases  which  yield  nonzero  results  upon  integration: 

Case  (1):  m  =  p  and  n  =  q 

Case  (2):  m  p,  (m  +  p)  odd  and  n  #  q,  (n  +  q)  odd 

The  set  of  Galerkin  equations  generated  for  Case  (1)  are 
show  below: 

Equation  (56)  for  u^  becomes: 

-  A^{([  g*  +  {l2n^Bj^^ab^h^ 

-  16'K^E^^ab^)p^]R^  +  (2in^F^^a^  -  q^R 

+  {en^E^^a^h^  -  Bn^G^^a^)  q^)/  {^8a^bh^R^)} 

~  +  12Tt^B^2)  - 

-  ISn^jEij) a^i>]pgJ?*  +  [(-Sw^Dgg  -  12it^I?i2) a^Jbh^ 

+  (Sn^Fgg  +  16ic^Fj^2^^b]pqR)  /  {^Ba^bh^R^)] 

-  <^«n  {([(-32n3£r^,i  -  16Jt3Fi2>a2pg2  -  16Jl3FiiJb2p3]i?2 
+  [(32n^F65  +  16:i^Fi2)  a*P<3r^  -  12icAi2a^Jb*ij^p]  F 
-  Bn^G^^a^pq^)/  (4Ba^bb^R^)} 
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■  ■S'jnn{t  +  l2ii^A^^ab^h^p^) -  12ii^B^^a^h^g^R 

+  3Tt^D^^a^h^g^]  /  iiSa^bh^R^)} 

-  G^{[(l2it2Ag5  +  12i:^A^^)  a^bh^pgR^ 

-  3n^D^^a^bh^pg]  /  (ASa^bh^R^)'^  =  0 

(67) 

Equation  (57)  for  becomes: 

-  Aan{([  (laic^Bgg  +  12it^Bj^2'^  ab^h^  +  (-len^E’gg  -  16 ic^ £^^2'^  ab^] pgR^ 

+  (Sit^Fggab^  -  Sn^D^^ab^h^) pgR  +  (Sn^Gggajb^ 

-  6ll2£-^gaJ32il2)p^/(48ai?2i22i?2)} 

-  fla„{([  (12it2fl22a2jbA2  -  len^Ejja^jb)  g2  +  {l2it^B^^b^h^ 

-  16«2£-^gij3)p2]  jj2  [  (i6ii2i?22a2jb  -  12^^ i>h^)  g^ 

+  {en^D^^b^h^  -  8ii2p^^i,3)p2]jjy  (4ea2,2^2jj2)) 

-  C-an  {([(-32it3E„  -  16ii2Ej2)^^P^‘7  -  16«3iP22a2g3]i?2 

+  (16it3^223^<3'^  -  12‘KA22a^b^h^g) R  +  8n2G-^,b2p2<gf)/ (48ab2/22ij2)} 

-  E„  {  [12ii2^^  +  12112^^2)  ab 2)3 2pgR 2  -  3ic2Pgjab2)22pg]  /  (48ajb2)32i?2) 

-  {[  (12ic2A22a2Jb)32g2  +  i2n^A^^b^h^p^)  R^  +  1211^ B^^b^h^p^R 

+  3K2p^^jt,^A2p2]  /  (48ab2/32i?2)  J 

=  -{ajbl2V4)w2jB^  +  {iragj//4}w2c^ 

(68) 
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Equation  (58)  for  w  becomes: 


{[{[(241:35;^  +  12Ti^ 

-  a3jb2]p2g3  +  [(,i2tO F^^ab^h'^  -  ISn^H^^ah*') p* 

+  {-9izAssa^b*h^  +  12TiD^^a^b*h^  -  l^^nF^^a^b^) p^] 

+  ([(-SSTt^Cgg  -  12it^G^2^  a^b^h^  +  (4811^X55 

+  a^jb2]p2g3  +  (SnBj^^a^b^h*  -  12TtEj^2^^b*h^)p^<^R 

+  {12‘n^H^^a^b^h^  -  ISn^J^^a^b^) p^gy  {36a^b^h*pgR^)} 

*  {{[a2n^F22a^bh^  -  16Ti^H2:,a^b)pg^  ^  ([(24713^6^ 

+  1271^^12)  a^b^A^  +  (-327c3/4<;  -  a^b'^]p^ 

+  {-STtA^^a^b^h*  +  727ti?44a*A^A^  -  14471^^^3 ‘A^)p)gr2j/e2 
+  [(327C^J22a^i)  -  2471^^223 ^jbA2)pg<  +  ( [  (-127r^(?5g 

-  1271^^12^  ■*■  ■*■  1671^112)  a  ^jb^]p^ 

+  (971522^^-^^*^  ■  127i£’22a'‘Jb^A2)p)g2]i?  +  ( 1271^/^22^ 

-  16n'^J22a*b)  pa*  +  (127tF22a^i5^A2 

-  S-nD22a*b^h*) pg^)/  06a^b^h*pgR^)} 

*  C’lm  {[(■16’'^^22^*P‘7®  t(-647l<i4g  -  32Tl*Hj^2'f  a^b^p^ 

+  {-9'K^A^^a*b^h*  +  72-n^D^^a*b^h^  -  liA■K^F^^a*b^) p]  g^ 

+  [-167i*Hjjb*p®  +  (-STi^Ajga^A^A^  +  12n^D^^a^b*h^ 

-  lAA‘K^F^^a^b*)p^)R^  +  {32n*j22a*pg^  +  [(647t*lgg 

+  3271^X^2)  ~  247l2£’22^^^^**pl  ~  247l2Fi2a^Jb*A^p^q)F 

-  l6n*J22a*pg^  +  (2ATi^ F22a*b^h^p  -  IS n*  J^^a^b^p^)  g^ 

-  9nA22a*b*h*pg]^/  {3Sa^b^h*pgR^)) 

+  {([  (247i^Fg6  +  1271^^12)  a ^b^A^p^g^  +  127C^FiiaA*A^p*g] 

+  [(-247i^Fg5  -  1271^Fi2)  a^A^A^p^g^  +  9‘KAj^2^^b*h*p^g] )  R 
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+  eit^G^^a^b^h^p^q^)/  {36a^b^h*pqR^) } 

+  Ggg^  |{[l2it^£'22<a*-bi2^P<7‘  +  (24ii^£gg  +  12n^E^2^  a^b^h^p^q^]  R^ 

+  {9%A223L*b^h*pq^  -  12n^ F22^*bh^pq*)  R 
-  6Tt^G^^a^b^h^p^q^)/ OSa^b^h^pqR'^)]  =  {-KbpJ^/ 

+  {7cagI^/^}u>^B^  -  {[16jt2(a2g2  +  b^p^)  j^ 

+  9 a^b^h* I^]  /  [36 abh^)}ui^C^  +  {rt^bp^/  [4a)  )Nj^C^ 

(69) 

Equation  (59)  for  f,,  becomes: 


-  {([(Ifin^Dg.a^ii"  -  46it^F^^a^h^  +  32%^H^^a^)q^ 

+  (ISic^Pj^^aij^fi*  -  46‘ii^F^^ab^h^  +  32n^ H^^ab^) p^ 

+  ISA^^a^b^h*  -  144D^^a^b'^h^  +  288^553 ^Jb^] 

+  [ -36 n^E^^a^h*  +  96‘K^G^^a^h^  -  64i:^I^^a^)  q^R  + 

+  (18Tc2F„a^fi^^  -  48it^H^^a^h^  +  32n^ J^^a^)  g^)/  [7 2a^bh*R^)) 

~  ^mn  {(t(18ii2p„  +  IBk^ Di2)  ^^bh*  +  [-4Bn^F^^  -  4Bn^ F^2^  a^bh^ 

+  (32it^/fj5  +  3271^ H.^2^  a^b\pqR^  +  [(-ISn^E'gg  -  IB-n} £^2)  Si^bh* 

+  (48it2G'g,.  +  48it2Gi2)a2jb/22  +  (-32«2jg^ 

-  32ic^  J12)  a^jb] pqi?)/ (72a^jb/2*i?^)} 

-  C«n  {[(n-48ir^Pgg  -  24w3Fi2)a2/i2  +  (64nX6  +  32«5Hi2> a^lpg^ 

+  [32'K^H^^b^  -  24%^ F2ib^h^)p^  +  [IBti A^^a^b^h*  -14 4-R.D^^a^b^h^ 
+  288itF55a2Jb2)p)j?2  +([(72n3Ggg  +  24n3Gi2)  a^b^  +  [-96n^I^^ 

-  32u’Ji2)  a^lpq^  +  {24‘KE^2^^b^b^  ~  18iiBi2a^b^A*)p)F 
+  0211^17553^  -  24n^H^^a^h^) pq^y  [12a^bh*R^)} 

-  E^  {([  (1811^5553 -  2411^^553^^2^)  +  18ii^Bii3jb^i2* 

-  24n^Fu3i3*A^)p^l  F*  +  [36n^F^^a^h^  -  27 D^^a^ h* )  q^R 
+  [9n^E^^a^h*  -  12n^Gs6a^h^)  q^)/  [72a^bh*R^)} 
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-  +  (-24ir2£'66 

-  2^n^E^2'^  a^bh^]  pgR^  +  il2n^F^^a^bh^  -  Sv^D^^a^bh*) pgR 
+  {12n^G^^a^bh^  -  Sit^E^^a^bh^) p<^j/  il2a^bh*R^)}  =  0 


(70) 

Equation  (60)  for  7^  becomes: 

-  Ag^  {([(iSTt^Dgg  +  ISn^Dij)  +  (-4811^^55  -  4B‘k^Fj^2^  ab^h^ 

+  (32Tt2/fg6  +  32712^12)  ajb2]pgj?2  +  _  1 

+  (48ii2g^^  +  48712(5^2)31)2*2  +  (-32ll2jgg 

-  327i2j^2)  ab^lpqi?)/ {72ai>2*<x2)| 

-  Bgg^  [[[(l8n^D22^^bh*  -  48ii^F22&^bh^  +  32ii^H22&^b)  g^ 

+  (187l2Dggi)2jj4  _  487i2Fggl)2jj2  +  3 2Ti^ H^^b^ ) p^  +  18A^^a^b^h^ 

-  144Pg4a2l)3*2  +  288F^^a^b^]R^  +  (-367r2£:22a2i)*< 

+  96n^G223^bh^  -  84‘K^l22^^b)  g^R  +  (18it2F22a^b*^ 

-  487t2i/22a2bli2  +  32T(^J223i^b)  g^)/  {12ab^h*R^)] 

-  {([{3271^1/223'  -  247i2F22a2*2)g3  +  ([(-487t2Fgg  -  247i2Fi2)b2*2 

+  (647t2//5g  +  36712^^2)  1)2]  p2  +  187tA44a 2jt>2*4  -  14471^448  21)27j2 

+  288% F^^a^b'^)(i[R^  +  [(48712^223  2*2  _  647l2j22a2)g3  +  ([(247l2Gg6 
+  24712^12^  (-32712  Jgg  -  327l2j^2)jb2]p2  -  18115223  2*2^34 

+  247l5223  2*2)22jgj^  +  (32772^2232  -  247721/2232*2)  g3 

+  (1 877^223 'Ij'b*  -  247752232*2^2)  (7  2al)2^4j;j2)J 

-  £'^{([(1877^555  +  187725^2)317^**  -  (24772£'g5  +  247725^^2)  3*2*2]  pgR 2 

+  ((-9172555  -  187725^2)3*2**  +  (I2172F55 


54 


+  24ii2Fj^2)  ajb^A^lpgi?)/ (72ajb^i!^J?2)} 

-  [[[{18n^B22a^bh*  -  2ii:^E22a^bh^)  +  {IBn^Bg^b^b* 

-  24n^E^^b^h^) p^]  +  [  (24it^F22a^bA^  -  lBit^D22^^^^*^  <3^^ 

+  {Bn^D^^b^h*  -  12n^  F^^b^  h^)  p^]  R)/  {.12ab^h*R^))  =  0 

(71) 

The  Galerkin  equations  for  Case  (2)  are  as  follows. 

Equation  (56)  for  u^^  becomes: 

{ [  (24nBi5ajb^h^  -  32itBj5ajb^) +  24iiFigajb^ 

-  IBnD^^ab^h^) m^nqR]  /2nab‘^h^R'^  (p'^  -  m^)  (g*  -  n^)} 

*  flffln  {(t  (12it-Bjga^jbh^  -  16nE2ia^b) im^  +  (12nSigjb^h^ 

-  16 n E^fb^ ) m^]  qR^  +  (24nF2^a'^b  -  lBTiD2^a^bh^) wn^qR 

+  (enBjga^jbh^  -  8nG2f,a^b) mn^<^/2nab^h^R^  {p^  -  m^)  (g^  -  n^)} 

+  {((-16i:^£’2«^^^^  "  48n^B^5ij^in^i3) gJ?^  +  [24:i^f’26'^^^^ 

+  (24ii^Fijjb^in^  -  12A2ja^b^h^jn)  J7]  gF  +  (6B2f,a^b'^h'^nin 

-  Bn^G2ia^wn^)  <^/3i(ab^h^R^  (p^  -  m^)  (g^  -  n^)} 

+  E^  [(24-KA^f^m^nqR^  -  12itB^^m^ngR)  /3nR^  (p^  -  m^)  (g^  -  n^)} 

+  {[  (12iiA26a^jbh^mn^  +  127tA2gjb^ij^m*)  gF^  +  {BnB^^b'^h^m^ 

-  6nB2(,a'^bh^mn^)  qR]  /3‘Rab^h^R^  (p^  -  m^)  (g^  -  n^)]  =  0 


(72) 
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Equation  (57)  for  becomes 


{([  (12irB26a^fi2  _  is-KE^^a'^)  n'^  +  {12nB^f,a±)^h^ 

-  lS%E^f^ab^)m^n\pR^  +  [(leicFjga^  -  12% 

+  {SrcDj^^ab^h^  -  BuFj^^ab^) m^n] pR)/3%a^bh^R^  {p^  -  m^)  (g^  -  n^) 

+  Bg^  [[{2A%B2f^a^bh^  -  32%E2^a^b) rni^pR^  +  (BitFjga^b 

-  SnD^f^a^bh^) mn^pR  +  (SnGjga^jb 

-  SnE^^a^bh^) ntn^pl  /3%a^bh^R^  {p^  -  m^)  (g^  -  /a^)} 

+  Cgg^  [[(-ABn^E^f^a^tm^  -  lS%^E^f^b^m^n) pR^  +  [24i:^F26a^nin^ 

+  {-B%}F^f^b^m^  -  12A2^a^b^h^in)  n] pR  +  {Bn^G^f^a^mn'^ 

-  eB^^a^b^h^mn) p)/3%a^bh^R^  ip^  -  m^)  (g^  -  /a^)} 

+  F^a,  {  [  (12irA2ga^ia2aa^  +  12% A^^ab^ n) pR^  +  {e%B^^ab^h^m^n 

-  6%B2^a^h^n^) pR]  /3%a^bh^R^  {p^  -  m^)  (g^  -  aa^)} 

+  Gmn  {[(SAjgbF^  +  AB2^bR)wn^p'\ /h^R^(p^  -  m^)  (g^  -  aa^)}  =  0 


(73) 
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Equation  (58)  for  w  becomes: 


-  {[((48Ti^F26a^h^  -  64n^H2ga^)n^  + 

-  192Tt^Hj^^ab^) -  3eA^^a^b^h*  +  2SBD^^a^b^h^ 

-  57 6 F^ga ] n)pgR^  +  ((128u^J26a^  - 

+  [  (12811^  Jj^gab^  -  9 6 Ti^ G^^ab^ h^ ) +  36B2^a^b^h* 

-  A8E26^^b‘^h^]n)pgR  +  [  (48ii^if26^^^^  "  64n2j2ga^)n^ 

+  (ABF^s^^b^h^  -  36D26a^b^h*)  n]pc^/9Tia^b^h*R^  {p^ 

-  m^)  (g2  -  n^)} 

-  Bjnn  {([  (1447r2F2ga2bb2  -  19 2it^H2ia^b)nin^  +  (49n^F^^b^h^ 

-  647t2Higb^)m^  +  ( -36 A^^a^b^h*  +  28BD^^a^b^h^ 

-  516F^^a^b^)npqR^  +  [  {25611^ l2ia^b  -  192n^G26a^bb^]jm2^ 

+  (36B263^b^h*  -  48E2ea^b^h~) ml pgR  +  (48lt^H2ea^bh^ 

-  64'K^J2^a^b)mn^p(^/9‘Ra^b^h*R^  {p^  -  m^)  (g^  -  n^)] 

-  C^  {[{[  (-7  211  Agga 2b 2b ^  +  576nD^^a^b^h^  -  1152% F^^a^b^) m 

-  2567c3Higb2/n2]n  -  256%'^H2^a^mn^)pgR^  +  [384it2 J25a2inn3 

+  (128it3ljgb2in^  -  192iiF263^-^^*^^)^]P<3^  '*'  {9^'nF2^a^b^h^mn 

-  128%^J26a^mn^)pgy9%a^b^h*R^{p^  -  m^)  (g2  - 

-  E^  [[{48%^E2^a'^h^n'^  +  144%^ E^^ab^h^m^n) pgR^  +  [  (36A2ga^b2b^ 

-  1 2%^Fi^ab^h^m^)  n  -  12%^F2^a'^h'^n'^lpgR  +  (24ii2G26a2b2i23 

-  l8B2ia^b^h*n) p(^/9%a^b^h*R^  {p^  -  m^)  {g^  -  n2)j 

-  G^  [[  [l44%^E2^a^bh^inn^  +  48%^  E-^^b^  h^  m^ )  pqR^  +  {24%^  F^^^b^h^m^ 

+  36A26^^b^h*m  -  12%^F2^a^bh^mn^) pgR  +  {18 Bz^a'^b^h^m 

-  24%^G2ia^bh^mn^) pgl  /9%a'^b^h^R^  {p^  -  m^)  {g^  -  n^)}  =  0 


(74) 
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Equation  (59)  for  becomes: 


■^mn  -  iSlTi^F^^ab^h^  +  l2B%^H^^ab^) m^nqR^ 

+  {-12n^Ej^^ab^h^  +  192n^G^gab^h^ 

-  128-n^I^^ab^) m^ngR]  /9n^ab^h^R^  (p^  -  m^)  {g^  -  n^)) 

+  [[[OBti^D^f^a^bh*  -  gen^Fjga^jbA^  +  SA%^H2^a'^b) mn^ 

+  Oen^D^gb^A^  -  sen^Figb^b^  +  64^2^16^3)^3  +  (36A^^a^b^h* 

-  288D^s^^b^h^  +  576F45a22)3)jn]  gJ?2  +  {-12n^E26^^t>h*‘ 

+  192ii2G26a2jbij2  -  I28«2j2ga2jb)i7in2gj?  +  OGn^f^ga^bb* 

-  96n^H2^a^bh^  +  6An^J2ia^b) mn^c^l/9Tt^cd>^h*R^  (p^ 

-  m2)  (q2  _  j,2)  j 

+  {[{(64it3^26a2  -  A8it^F2ea^h^)inn^  +  [  {192it3Hi6b2 

-  144-k^ F^^b^h^) zn^  +  {26iiA^^a^b^h*  -  288nD^^a^b^h^ 

+  5767tF45a2b2)m]  n)gR2  +  ^i96it^G2ia^h^  -  12 Sn^Jjga 2 )mn3 
+  [(96n^G^^b^h^  -  128it^I^^b^)m^  +  {48‘KE2f,a.^b^h^ 

-  28'KB2ia^b^h*)m\Ti^qR  +  [(6431347263^  -  48-K^H2^s^h^) znn^ 

+  ( 36 It  1726 3 -  48nF26a2b2b2)mn]  g]/9n2ab2b*F2  (p2 

-  m2)  (g2  _  jj2^^ 

+  F^  { [  (72tt2B^gab2b*  -  BSn^E^^ab^h^)  m^ngR^  +  {12it^F^^ab^h^ 

-  54v:^D^^ab^h*)m^ngR)  /9v^ab^h*R^  (p^  -  in})  (g^  ~  n^)} 

+  G^  {([  (36n252ga2bb^  -  48%^E2^a^bh^) mn^  +  {sen^B^^b^h* 

-48n2Fi6b3b2)m3]  gR2  +  [  (48it2F26a2bb2  -  38Ti^D2^a^bh^) mn^ 

+  (18ir2l7igb2b*  -  24n2Fi6b3b2)m3]  gF)/93t2ab2b*F2  (p2 

-  m2)  (g2  -  ^2)j  _  0 

(75) 
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Equation  (60)  for  Ty  becomes 

+  [{ZSTi^D^^ab^h* 

-  se-n'^Fy^ab^h^  +  64‘n^H^^ab^)m^  +  36A^^a^b^h*  ~  288D^^a^b^h^ 

+  57  6  F^^a^b^]n)pR^  +  {-72ii^E2^a^h*  +  l92Tt^G2^a^h^ 

-  128it  -26a3) +  Oeit^Fjga^/j^  -  88Ti^H2^a^h^ 

+  84Ti^H2^a^)  n^py^Ti^a^bh^R^  -  m^)  (g^  -  n^)} 

+  [{{12%^D2^a'^bh^  -  182%^ F2^a^bh^  +  128%^ H2^a^b)im^pR'^ 

+  {-72ii^E2(,a^bh*  +  182Ti^G2^a^bh^ 

-  128n^ l2^a^b)  mn^pR]  / 9 -K^a^bh*R^  (p^  -  m^)  (g^  -  n^)} 

+  {[((1927t2//26'3^  “  •*■  [(S4rt^H^^b^ 

-  48‘K^F^^b^h^) nt^  +  (36nA^^a^b^h*  -  288nD^^a^b^h^ 

+  576itF45a^ij^)/n]  n)pi?^  +  [  (192ii^G25a^i3^  -  25Sji^ l2^a^) mn^ 

+  {48%E2^a^b^h^  -  36‘KB2^a^b'^h*) im] pR  +  (64n^J26a^ 

-  48v:^H2f,a^h^) mn^p]/9ii^a‘^bh^R^  (p'^  -  m^)  (g^  -  n^)} 

+  -^am  {([  (36w^fi26^^^*  ■  48n2£’26a^ii2)i3^  +  {36it^B^^ab^h^ 

-  48i:^E^^ab^h^) m^n] pR^  +  (72n^F2^a‘'^  -  54-k^ D2^a'^ h*)  n^pR 
+  (187t^£'26^^**  -  247i^G25a^i3^)n’p)/97i^a^jbi2*2?^  (p^ 

-  in^)  (g^  -  J3^)}  =  0 

+  Gjjn  { [  (72Ji^B26a^jbA*  -  9oT(}E2^a'^bh})mn}pR'^  +  (2471^^263 ^2>A^ 

-  I8n^ D26a^ bh* ) im^pR  +  i24ii^G2^a^bh^ 

-  l8if^E2ia^bh*) rnn^p]  /9n^a^bh*R^  {p^  -  m^)  (g^  -  ji^)}  =  0 


(76) 
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The  Galerkin  equations  for  the  clamped  boundary  condition 
were  derived  in  the  same  method  as  for  the  simply  supported. 
Admissible  functions  were  required  to  meet  the  following 
boundary  conditions  for  clamped  edges  on  all  four  sides. 

at  X  =  0  and  x=a  w=T=Y=0 

X  y 

at  y  =  0  and  y  =  b  w=f  =7  =0 

X  y 

Similarly  to  the  simple  supported  case,  the  boundaries  are 
given  a  C-2  type  clamped  boundary  (9:244): 

at  X  =  0  and  x  =  a  u^  0  and  v„  =  0 

O  O 

at  y  =  0  and  y  =  b  u^^  =  0  and  v^,  #  0 


The  following 


y) 

♦y(-x,y) 
w{x,y) 
Uo  (x,  y) 
vjx,  y) 


admissible  functions  were  chosen: 


M  S 


=  E  E  A^cos(inM)sin(-5^) 


•1  n“l 
M  tr 


jB=l  n=l 
M  N 


=  E  E  B^sin{I^)cos{ 


•E  E  c„sin(i?i£)sin(-2^) 

JB-1  JJ-1  “  ^ 

=  E  E  r.cos(”^)sin(^) 
=  E  E  G„sin(i!M)cos(-^) 

wl  n-i  ®  ^ 


(77) 
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with  the  corresponding  single  terms  associated  with  the 
variations : 


cos  ( 

^"^)sin( 

gny 

O 

a 

b 

»v„: 

sin( 

^'^)cos( 

a 

ony 

b 

fiw: 

sin( 

^^)sin( 

guy 

a 

b 

cos  ( 

a 

gny 

b 

sin( 

^^)cos( 

a 

gny 

b 

(78) 


Again,  the  values  of  the  indices  m  and  n  determine  the  number 
of  terms  in  each  equation,  and  p  and  q  determine  the  number  of 
equations . 

The  procedure  for  generating  the  Galerkin  equations  is 
identical  to  that  outlined  in  the  previous  section.  However, 
resulting  from  the  different  admissible  functions  chosen,  four 
nonzero  cases  result  from  the  integration: 


Case  (1): 
Case  (2): 
Case  (3): 
Case  ( 4 ) : 


m  =  p  and  n  =  q 

m  =  p  and  n  q,  (n  +  q)  odd 

m  p,  (m  +  p)  odd  and  n  =  q 

m  p,  (m  +  p)  odd  and  n  #  q,  (n  +  q)  odd 


Each  of  the  above  cases  results  in  a  set  of  Galerkin 
equations  similar  to  those  presented  previously  for  the  simply 
supported  boundary  condition.  They  have  the  same  type  of  form 
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and  contain  similar  terms.  These  are  not  included  in  this 
section  for  brevity,  however  for  further  detail,  they  are 
included  in  Appendix  D. 

The  final  boundary  condition  is  that  of  a  combination 
simple-clamped.  Specifically,  the  curved  edges  of  the  panel, 
along  y  =  0  and  b  were  clamped,  and  the  straight  edges,  along 
X  =  0  and  a,  were  simply  supported.  This  condition  is  similar 
to  that  described  by  Bowlus  and  Reams,  though  they  looked  at 
flat  plates  (2;  18).  The  boundary  conditions  to  be  satisfied 
are  as  follows; 

at  X  =  0  and  x  =  a  w  =  7^  =  7y  =  0 

at  y  =  0  and  y  =  b  w  =  0  and  ® 

Again,  S-2  and  C-2  type  boundaries  are  assumed,  so  that 
the  displacement  are  described  as  follows: 

at  X  =  0  and  x  =  a  u  #  0  and  v„  =  0 

o  o 

at  y  =  0  and  y  =  b  =  0  and  *  0 
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The  admissible  functions  chosen  are 


M  S 


•1  n-1 
M  !f 


m-1  n-l 
M  H 


=  E  E  B«„nSin{i2^)cos( 


BUZ) 

b  ' 

nny, 


y) 

^y{x,y) 

w{x,y) 

m«i  jj-l 

^o(x,y)  =  E  E  F^cos(^)sin(i^) 
^o^x.y)  =  E  E  G^sin(^)cos(i^) 


=  E  E  C^sin(^)sin(i^) 


(79) 


ffl-i  ii-i 


with  the  corresponding  single  terms  associated  with  the 
variations 


6u„:  cos(^£5i^)sin(-25Z) 

a  b 

fiv^:  sin(^^^)  cos  (-^^) 
°  a  b 

6w:  sin(-^^)  sin(-2^) 

a  b 

cos  ( )  sin  ( -^^ ) 

S  jD 

fii|r  :  sin(-^5^ )  cos  (-2^) 

^  a  b 


(80) 


Like  the  clamped  condition,  integration  for  the  Galerkin 
equations  results  in  four  nonzero  cases.  Again,  the  resulting 
equations  are  included  in  Appendix  D. 
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The  Galerkin  equations  are  now  assembled  into  an  eigenva¬ 
lue  problem,  to  be  solved  for  the  critical  buckling  loads  and 
natural  frequencies. 
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Computer  Code 


The  computer  program  used  to  solve  for  the  buckling  loads 
and  natural  frequencies  was  based  on  programs  by  Linneman  and 
Reams  (10;  18).  One  program  was  written  for  each  boundary 
condition,  basically  identical  except  for  the  Galerkin 
equations  used.  Appendix  B  contains  a  listing  of  the  FORTRAN 
code  and  the  corresponding  Galerkin  equations  for  each 
boundary  condition.  Each  program  is  divided  into  three 
sections,  the  main  program  and  two  subroutines. 

The  main  program  reads  as  input  the  following  data 
describing  the  laminate  properties  and  configuration. 

1)  an  integer  flag;  “1"  indicates  a  vibration  problem, 
”2"  indicates  a  buckling  problem. 

2)  a,  the  length  of  the  panel  in  the  x  direction 

3)  b,  the  length  in  the  y  direction 

4)  R,  the  radius  of  curvature 

5)  h,  the  laminate  thickness 

6)  NPLYS,  the  number  of  plies  in  the  iiinate 

7)  0,  orientation  angle  of  each  ply 

8)  E^,  Young's  modulus  in  the  1  direction 

9)  Ej,  Young's  modulus  in  the  2  direction 

10)  G^2'  shear  modulus  in  the  1-2  plane 

11)  Poisson's  ratio 

12)  p,  the  mass  density 
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13)  M  =  N,  the  maximum  number  of  terms  in  each  admissible 


function 

All  variables  and  arrays  are  declared  double  precision, 
and  workspace  is  allocated  for  the  eigenvalue  calculations. 
The  program  as  written  can  handle  M  and  N  values  up  to  10. 
Higher  values  would  require  much  higher  run  times,  and  would 
be  impractical  for  the  computer  facilities  available  for  this 
work.  For  M  =  N  =  10,  there  are  100  terms  in  each  admissible 
function,  resulting  in  500  x  500  matrices  for  the  eigenvalue 
problem. 

The  main  program  also  calculates  Vj-,,  G^j,  and  Gjj  using 
the  following  relationships 


V 


21  ® 


'12 


£k 

^1 


^13  “  ®12 


^23 


0 . 8  Gj^2 


It  then  calls  the  first  subroutine,  called  "LAMINAT",  which 
uses  the  above  data  to  calculate  the  extensional,  coupling, 
and  bending,  and  higher  order  stiffness  matrices  defined  by 
Eg  (34).  It  follows  the  procedure  outlined  in  Section  II, 
first  calculating  the  reduced  stiffness  terms  [Q^j]  described 
by  (26).  It  then  applies  the  transformation  relations.  Eg 
(31),  to  find  the  transformed  reduced  stiffness  terras,  [Q^j]/ 
for  each  ply.  These  terras  are  summed  over  the  thickness  of 


the  laminate/  and  using  the  definitions  given  by  Eqs  (34),  the 
extensional,  bending,  coupling,  and  higher  order  stiffness 
terms  are  calculated.  These  values  are  then  returned  to  the 
main  program,  where  the  second  subroutine  is  called. 

The  subroutine,  called  GALERK,  sets  up  the  eigenvalue 
problem.  It  loops  through  the  values  of  m,  n,  p,  and  q,  and 
generates  the  appropriate  Galerkin  equations,  based  on  the 
applicable  integration  case  as  outlined  in  the  previous 
chapter.  The  results  obtained  for  each  loop  are  then  compiled 
into  matrix  form,  represented  below: 


Stiffness 

terms 


'an 


'an 


>  =  (<0^  ,  N^) 


Mass/ Inertia 
terms 


\B, 


'mn 


Both  the  stiffness  and  mass/inertia  matrices  are  (5*M*N) 
by  (5*M*N).  The  terms  and  are  the  eigenvalues.  The 
integer  flag  specified  at  the  beginning  of  the  program 
determines  which  is  solved  for.  The  mass/inertia  matrix  will 
contain  those  terms  associated  with  whichever  term  is  sought. 
The  column  vector  is  the  eigenvector. 

Appendix  B  contains  the  GALERK  subroutines  for  each  of 
the  boundary  conditions  investigated. 
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The  stiffness  and  mass/inertia  matrices  are  then  submit¬ 
ted  to  the  IMSL  subroutine  DCVCRG,  which  solves  for  the 
eigenvalues  and  eigenvectors  (8). 

The  remaining  portion  of  the  program  also  calculates  and 
prints  the  deflections  along  the  midlines  of  the  laminate, 
thus  giving  the  mode  shape.  Though  not  a  focus  of  this 
thesis,  this  feature  is  a  useful  tool  for  future  investiga¬ 
tions  . 
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III. 


Discussion  of  Results 


Laminated  Cylindrical  Shell  Properties .  The  material 
used  for  the  cylindrical  composite  shell  studied  here  is 
graphite/epoxy  (AS/3501),  which  has  the  following  material 
properties : 

=  2.10E+07  psi 
Ej  =  1.40E+06  psi 
G^2  =  6.00E+05  psi 
Vi2  =  0-3 

p  =  1.42454E-04  slugs/in^ 

For  each  of  the  three  boundary  conditions,  symmetric  and 
antisymmetric  ply  lay-ups  were  investigated.  These  included 
sequences  of  [0/90],  [+45/-45],  and  [0/+45/-45/90] .  The 

symmetric  lay-ups  will  be  designated  by  a  subscript  s,  and  the 
antisymmetric  by  subscript  as.  For  example,  a  symmetric  lay¬ 
up  of  [0/45/-45/90/90/-45/45/0]  would  be  referred  to  simply  as 
[0/45/-45/90]^.  The  corresponding  stiffness  terras  are 
presented  in  Tables  1  through  5. 
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Table  1.  Stiffness  Elements  for  [0/90]^  Laminate 


Ext 

ensional  Elements  (lb/ 

in) 

A^-,  =  11267605.634 
=  0.000 
=  540000.000 

Ai2  =  422535.211 

Aj^  =  0.000 

A^,  =  0.000 

A22  =  11267605.634 

A^  =  600000.000 

A^^  =  540000.000 

1  Coupling  Elements  (lb* in/ 

in) 

=  0.000 
=  0.000 

B^2  =  0.000 

B,^  =  0.000 

B22  =  0.000 

B^  =  0.000 

B 

ending  Elements  (lb* in 

) 

=  1555164.319 
=  0.000 
=  42150.000 

D^2  =  35211.268 

D26  =  0.000 

=  0.000 

D22  =  322769.953 
=  50000.000 

D„  =  48750.000 

( lb-  in^) ,  ( lb-  in^ 

Higher  Order  Elements 
),  (Ib-in^),  (lb-in®), 

(lb- in*),  (Ib-in^) 

E^-,  =  0.000 

E^^  =  0.000 

E^2  =  0.000 

E,^  =  0.000 

E22  =  0.000 

E,^  =  0.000 

=  256382.042 
=  0.000 

F^  =  6046.875 

Fi2  =  5281.690 

F26  =  0.000 

F^s  =  0.000 

F22  =  25308.099 

F^  =  7500.000 

F„  =  7453.125 

=  0.000 
=  0.000 

G^2  “  0.000 

G,,;  =  0.000 

G22  =  0.000 
—  0.000 

=  46814.088 
=  0.000 

H^2  =  943.159 
=  0.000 

H22  =  3487.723 

H,;,;  =  1339.286 

=  0.000 
=  0.000 

1^2  =  0.000 
=  0.000 

I22  =  0.000 
=  0.000 

=  9152.886 
=  0.000 

J-,2  =  183.392 
“  0  •  0  0  0 

J22  =  628.022 

=  260.417 
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Table  2.  Stiffness  Elements  for  the  [+45]^  Laminate 


Ext 

ensional  Elements  (lb/ 

in) 

=  6445070.414 
=  0.000 
=  540000.000 

A,2  =  5245070.423 

Aj^  =  0.000 

=  0.000 

A22  =  6445070.431 

A^  =  5422535.211 
=  540000.000 

1  Coupling  Elements  (lb- in/ 

in) 

=  0.000 
=  0.000 

B^2  =  0.000 

B,^  =  0.000 

B22  =  0.000 

B,^,.  =  0.000 

B 

ending  Elements  (lb- in 

) 

=  537089.201 
=  308098.591 
=  45000.000 

D^2  =  437089.202 

D26  =  308098.591 
=  -3750.000 

D22  =  537089.203 
=  451877.934 

D„  =  45000.000 

( lb-  in^)  /  ( lb*  in^ 

Higher  Order  Elements 
),  (Ib-in^),  (lb- in®), 

( lb-  in®) ,  ( lb‘  in^) 

E^^  =  0.000 

E^^  =  0.000 

E^2  =  0.000 

E,,.  =  0.000 

E22  =  0.000 

E^  =  0.000 

=  80563.380 

F..  =  57768.486 

F^  =  6750.000 

F.2  =  65563.380 

F26  *  57768.486 

F^^  =  -703.125 

F22  *  80563.380 

F^  =  67781.690 

F„  =  6750.000 

=  0.000 
=  0.000 

G,,2  “  0.000 
~  0 . 000 

G22  =  0.000 

G,^  =  0.000 

=  14386.318 
=  10831.591 

H<,2  =  11707.746 
=  10831.591 

H22  =  14386.318 
=  12103.873 

=  0.000 
=  0.000 

1^2  =  0.000 
=  0.000 

I22  =  0.000 
=  0.000 

=  2797.340 
=  2131.216 

J„  =  2276.506 

J,^  =  2131.216 

J22  =  2797.340 
=  2353.531 
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Table  3.  Stiffness  Elements  for  the  [0/145/90]^  Launinate 


Extensional  Elements  (lb/ 

in) 

=  8856338.024 
=  0.000 

A^  =  540000.000 

A^2  =  2833802.817 

Aj^j  =  0.000 

=  0.000 

A22  =  885938.033 

k(^  =  5422535.211 

A^^  =  540000.000 

Cou 

pling  Elements  (lb* in/ 

in) 

=  0.000 

Bi^  =  0.000 

B^2  =  0.000 

B,^  =  0.000 

B22  =  0.000 

B^  =  0.000 

Bending  Elements  (lb* in) 


=  1237852.112 

0,6  =  77024.648 

=  42187.500 

D„  =  198474.178 

Dj.  =  77024.648 

=  -937.500 

D22  =  313556.338 
=  213262.911 

D„  =  47812.500 

( lb*  in^) ,  ( lb*  in^ 

Higher  Order  Elements 
),  (lb*  in*),  (lb*  in®), 

( lb* in^) ,  ( lb* in^) 

E^^  =  0.000 

E^^  =  0.000 

E„  =  0.000 

E,^  =  0.000 

E22  =  0.000 

E^  =  0.000 

F..  =  220472.601 
=  10831.591 

F^  =  6178.711 

F.2  =  19527.949 

Fj.  *  10831.591 

F^,  =  -131.836 

F22  =  32725.022 
^66  “  21746.259 

F„  =  7321.289 

=  0.000 
=  0.000 

G^2  =  0.000 

Gp^  —  0.000 

Gpp  “  0*000 

“  0*000 

=  42782.777 
=  1297.534 

=  0.000 
=  0.000 

1^2  =  0.000 
=  0.000 

I22  =  0.000 
=  0.000 

J^i  - 


Jl2  = 


J22  = 


8691.133 

152.300 


340.545 

152.300 


775.469 

417.570 


Table  4.  Stiffness  Elements  for  [0/90]  Laminate 


Extensional  Elements  (Ib/in) 


B,.  = 


Dl1  = 

Di6  = 
= 


-1232394.366 

0.000 


938967.136 

0.000 

45000.000 


Coupling  Elements  (lb- in/in) 


®22 


Bending  Elements  (lb- in) 


0^2  =  35211.268 


D26  = 


0.000 

0.000 


Higher  Order  Elements 
Ib-in^),  (Ib-in^),  (lb*in^),  (lb- in®),  (lb* 


Eii 

= 

-269586.268 

0.000 

= 

140845.070 

^16 

= 

0.000 

= 

6750.000 

Gil 

-49745.085 

s 

0.000 

m 


=  0.000 
=  0.000 


*  5281.690 
=  0.000 
=  0.000 


=  0.000 
=  0.000 


111  = 
IiA  = 


= 

J,.  = 


-9552.662 

0.000 


4890.454 

0.000 


twilill] 


=  0.000 
=  0.000 


=  183.392 

=  0.000 


11267605.634 

600000.000 

540000.000 


1232394.366 

0.000 


=  938967.136 
=  50000.000 
=  45000.000 


in^) ,  ( lb-  in^) 


=  269586.268 

=  0.000 


=  140845.070 
=  7500.000 
=  6750.000 


=  49745.085 

=  0.000 


=  25150.905 
=  1339.286 


=  9552.862 
=  0.000 


=  4890.454 
=  260.417 
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Table  5.  Stiffness  Elements  for  the  [±45],^  Laminate 


Ext 

ensional  Elements  (lb/ 

in) 

A,^  =  6445070.414 

A,^  =  0.000 

A^  =  540000.000 

A,2  =  5245070.423 

A26  =  0.000 

=  0.000 

A22  =  6445070.431 

A^^  =  5422535.211 

A;.;  =  540000.000 

Cou 

pling  Elements  (lb- in/ 

in) 

=  0.000 

B,,.  =  -616197.183 

B^2  =  0.000 

=  -616197.184 

B22  =  0.000 

B,^,^  =  0.000 

B 

ending  Elements  (lb- in 

) 

=  537089.201 
=  0.000 
=  45000.000 

Di2  =  437089.202 

D26  =  0.000 

D^i;  =  0.000 

D22  =  537089.203 

0^6  =  451877.934 

D„  =  45000.000 

( lb-  in^) ,  ( lb-  in^ 

Higher  Order  Elements 
),  (Ib-in^),  (Ib-in^), 

( lb‘  in*) ,  ( lb- in^) 

E..  =  0.000 

=  -134793.134 

E^2  =  0.000 

E,,^  =  -134793.134 

E22  =  0.000 

E,;,,  =  0.000 

F..  =  80563.380 

F..  =  0.000 

F^  =  6750.000 

F^2  =  65563.380 

F26  =  0.000 

F^,  =  0.000 

F22  =  80563.380 
^66  =  67781.690 

F„  »  6750.000 

G-.  =  0.000 

=  -24872.543 

G^2  *  0.000 

G,,;  =  -24872.543 

G22  =  0.000 

G,^  =  0.000 

=  14386.318 

H,*  =  0.000 

H^2  =  11707.746 
=  0.000 

H22  =  14386.318 
=  12103.873 

=  0.000 
=  -4776.431 

1-12  =  0.000 

I?A  =  -4776.431 

I22  =  0.000 
=  0.000 

J,,  =  2797.340 
=  0.000 

J^2  =  2276.506 

Jpf,  —  0.000 

J22  =  2797.340 
=  2353.531 

The  stiffness  elements  associated  with  the  [0/90]^ 
laminate  are  characterized  by  large  extensional  stiffnesses  in 
the  1  and  2  directions,  as  all  the  fibers  are  oriented  along 
one  or  the  other  direction.  The  extensional  terms  and 
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are  zero,  as  this  is  a  balanced  laminate.  This  is  true  for 
all  the  laminates  investigated.  Additionally,  the  bending 
terms  and  are  all  zero.  and  0^6  terms 
representing  twist  coupling.  These  terms  are  generally 
present  for  other  ply  orientations. 

The  stiffness  terms  associated  with  the  [0/90]^^  differ 
from  those  associated  with  the  [0/90]^  ply  layup  with  the 
addition  of  terms  such  as  and  Bggf  and  and  Gjjf 
and  and  The  B^^  and  stiffnesses  indicate  bending- 
extension  coupling  is  present.  (The  other  terms  are  higher 
order  and  do  not  have  a  true  physical  representation.)  Due  to 
this  coupling,  the  vibration  frequencies  and  buckling  loads 
are  expected  to  be  lower  for  the  nonsymmetric  case  than  for 
the  symmetric  case  (9;  28). 

The  stiffness  terms  for  the  [±45]^  differ  from  the  [0/90] 
layups  primarily  in  several  ways.  First,  they  contain  the 
twist  coupling  terms  and  As  Jones  describes,  the 
presence  of  these  terms  makes  a  closed  form  solution  impossi¬ 
ble,  as  the  governing  equations  are  not  separable  (9:263). 
Thus  the  presence  of  these  terms  may  cause  slower  convergence. 
Additionally,  the  stiffness  terras  in  the  1  and  2  directions  of 
the  fibers  are  generally  smaller  than  for  the  [0/90]^  lami¬ 
nate,  as  the  45  degree  fibers  provide  less  stiffness  in  these 
directions . 
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Finally  the  [0/±45/90]  laminates  also  have  a  complete 
stiffness  matrix,  due  to  the  presence  of  the  45  degree  plies. 
The  magnitudes  of  the  extensional  stiffness  terms  are  in 
between  the  values  for  the  [0/90]^  and  the  [±45]3  laminates. 
Thus  one  might  expect  its  behavior  in  buckling  and  vibration 
to  also  fall  between  these  two  cases. 
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Simply  Supported  Boundary  Condition. 


In  first  analyzing  the  results  of  this  investigation,  it 
is  important  to  look  at  the  convergence  of  the  eigenvalues  as 
more  terms  are  included  in  the  assumed  solutions.  As  the 
Galerkin  technique  involves  approximate  solutions  for  the 
displacements,  generally  the  natural  boundary  conditions  for 
the  panel  will  not  be  satisfied.  Therefore,  an  exact  solution 
cannot  be  found  using  this  technique.  A  well  chosen  displace¬ 
ment  field  will  tend  to  converge  quickly,  while  a  poor  choice 
will  converge  slowly,  if  at  all.  Of  course,  absolute  conver¬ 
gence  cannot  be  proven,  since  an  infinite  number  of  terms 
would  be  required.  Therefore,  the  rate  of  convergence  is  a 
good  indication  of  the  suitability  of  the  assumed  solutions. 

This  concept  is  ideally  represented  by  the  first 
boundary  condition:  simply  supported  on  all  edges.  The 
solutions  for  the  buckling  loads  and  natural  frequencies  for 
the  [0/90]^  laminate  are  found  to  converge  immediately  at  M  = 
N  -  2.  The  assumed  solutions  for  this  case  correspond  to  an 
exact  solution. 

Figures  4  and  5  show  the  effect  of  curvature  h/R  on  the 
buckling  loads  and  frequencies.  As  pointed  out  in  Chapter  II, 
as  the  radius  approaches  zero,  for  a  symmetric  laminate,  the 
membrane  equations  of  motion  for  u^  and  v^^  are  decoupled  from 
bending.  As  the  curvature  increases,  the  membrane  and  bending 
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stiffnesses  are  coupled  through  the  shell  equations,  Eqs  (56) 
through  (60).  The  panel  becomes  deeper  and  stiffer,  and  the 
buckling  loads  and  frequencies  increase. 

The  panels  investigated  in  this  section  are  all  square, 
a  =  b  =  1.  The  curvature  is  varied  from  h/R  =  0  for  a  flat 
plate  to  h/R  =  1/20.  The  ratio  of  the  circumferential  length 
to  the  thickness  (b/R  =  a/R)  is  varied  from  10  to  40. 

Several  important  trends  are  identified.  As  expected, 
the  buckling  loads  and  frequencies  are  seen  to  increase  as  h/R 
is  increased  due  to  the  membrane  and  bending  coupling. 
Additionally,  the  effect  of  increasing  the  span  to  thickness 
ratio,  b/h,  is  seen  to  lower  the  loads  and  frequencies. 
However,  a  major  difference  is  evident.  For  the  buckling 
problem,  the  effect  of  increasing  the  curvature  for  large 
spans,  (effectively  a  thin  shell)  is  quite  pronounced.  For  a 
b/h  value  of  40,  the  buckling  load  for  a  thickness  to  radius 
of  1/20  is  much  greater  than  that  for  a  flat  plate  of  the  same 
dimensions.  The  effect  on  the  frequencies  is  comparatively 
slight.  It  would  seem  that  for  a  deep  shell,  the  effects  of 
increasing  the  span  have  a  large  effect  on  the  critical 
buckling  load.  It  does  not  seem  to  have  a  significant  effect 
on  the  vibration  problem.  Note  that  there  is  some  behavior 
evident  in  Figure  4  of  some  values  not  following  these  trends. 
These  values  are  circled,  and  assumed  incorrect. 
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the  [±45],  laminate  does  not 
it  does  indicate  excellent 


convergence  characteristics .  Figures  6  and  7  show  some 
typical  results  for  both  buckling  loads  and  frequencies. 
Table  6  contains  the  corresponding  numerical  results.  It 
demonstrates  how  the  solutions  decrease  by  smaller  and  smaller 
amounts  with  a  corresponding  increase  M  and  N.  It  also 
indicates  that  the  natural  frequencies  tend  to  converge  more 
quickly  than  the  buckling  loads,  thus  requiring  fewer  terms  in 
the  assumed  solution  for  convergence  than  a  buckling  problem. 


Figure  6.  Convergence  Characteristics  for  Critical 
Buckling  Load,  Simply  Supported  Boundary, 
[±45]  ,  a=b=20,  h/R=l/20 
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Noiurd  Frsquency  (rad/s«c) 


Figure  7 .  Convergence  Characteristics  for  Natural 
Frequencies,  Simply  Supported  Boundary, 
[+45],,  a=b=20,  h/R=l/20 


Table  6.  Convergence  of  Critical  Buckling  Load  (Ib/in)  and 
Natural  Frequency  (rad/sec)  for  [+45],,  Simply 
Supported  (R  =  50.0  in,  h  =  1.0  in,  a  =  b  =  20.0  in) 
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The  same  type  of  convergence  behaviors  indicated  above 


holds  for  all  of  the  simply  supported  [+45]^  laminates. 

Figures  8  and  9  show  the  same  effects  of  curvature  on  the 
buckling  loads  and  frequencies  for  the  [±45]^  laminate  as  for 
the  [0/90]j  laminate.  The  loads  and  frequencies  decrease  with 
increasing  span.  Deeper  panels  are  less  affected  than  shallow 
shells  or  flat  plates,  and  the  frequencies  are  less  affected 
than  the  buckling  loads. 


O  10  20  30  40  50 


b/h 

Figure  8.  Curvature  Effects  for  Critical  Buckling  Loads, 
Simply  Supported  Boundary,  [+45], 

Up  to  this  point,  these  results  are  not  new.  Linneman 
(10)  examined  symmetrical  laminates  using  the  same  higher 
order  shear  theory  applied  herein.  Validation  of  the  results 
from  this  analysis  was  obtained  from  comparison  to  his 
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results.  As  part  of  his  thesis,  he  made  comparisons  for  the 
[0/90],  laminate  with  other  theories.  It  is  not  the  intent 
herein  to  duplicate  his  results,  therefore  a  short  summary  of 
his  important  conclusions  will  be  presented  only  to  support 
the  results  presented  in  this  work. 

Reddy  and  Lui  applied  the  Donnell  theory,  including 
parabolic  transverse  shear,  to  laminated  circular  cylindrical 
shell  panels  (21).  They  found  an  exact  solution  for  simply 
supported  boundary  conditions,  limited  to  [0/90],  laminates. 
Linneman  showed  that  for  large  h/r  values,  (approaching  a  flat 
plate),  the  two  methods  compared  very  well.  This  is  due  to 
the  fact  that  as  h/r  increases,  the  higher  order  terms  in 
Sander's  equations  approach  zero,  reducing  to  Donnell's 
equations  (4). 
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Comparisons  to  Jones'  closed  form  solutions  using 
Classical  thin  plate  theory  and  to  solutions  from  Bowlus  and 
Palardy  implementing  Mindlin  plate  theory  were  also  made  (2; 
9;  15).  Classical  theory,  also  known  as  the  Kirchhof f-Love 
theory,  assumes  no  transverse  shear.  This  type  of  model 
produces  a  plate  that  is  too  stiff,  and  the  buckling  loads  and 
frequencies  resulting  from  this  approach  are  too  high.  The 
Mindlin  model  uses  a  linear  shear  distribution.  The  parabolic 
shear  distribution  assumed  in  this  work  should  produce  lower 
frequencies  than  both  of  these  theories.  Linneman's  compari¬ 
sons  verified  that  the  parabolic  results  were  indeed  lower  for 
both  cases.  The  Mindlin  solutions  were  very  close  for  the 
[0/90]^  simply  supported  boundary,  due  to  the  fact  than  an 
exact  solution  exists.  For  large  a/h  ratios  of  40  to  50,  the 
results  approached  the  classical  solution  asymptotically. 
Linneman  also  looked  at  [±45],  laminates  with  both  simply 
supported  and  clamped  boundaries.  Again,  the  parabolic  model 
produced  lower  frequencies.  The  results  showed  greater 
differences  between  the  theories  for  the  clamped  results,  as 
one  would  expect  from  the  more  complicated  boundary. 

To  reiterate  once  more,  Linneman  performed  these  compari¬ 
sons  in  his  thesis,  and  they  are  included  here  only  for  the 
sake  of  completeness  and  to  validate  the  results  for  the 
symmetric  cases  presented  here.  Anyone  wishing  further 
information  is  encouraged  to  review  his  work. 
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The  intent  of  this  thesis  is  to  broaden  the  scope  of  his 
research  and  apply  the  theory  to  the  additional  cases  de¬ 
scribed  earlier:  an  additional  layup  of  [0/+45/90]  plies,  the 
clamped-simple  boundary  condition,  and  non- symmetric  lami¬ 
nates  . 

Results  for  the  [0/±45/90]^  laminates  with  simply 
supported  boundaries  also  exhibited  excellent  convergence 
characteristics.  Figures  10  and  11  show  some  typical  results 
for  both  buckling  loads  and  frequencies. 


Figure  10.  Convergence  Characteristics  for  Critical 
Buckling  Load,  Simply  Supported  Boundary, 
[0/+45/90],,  a=b=20,  h/R=l/20 


The  same  trends  described  in  the  previous  ply  lay-ups  are 
apparent  for  this  layup  as  well.  The  solutions  show  excellent 
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convergence  characteristics,  with  the  frequencies  again 
converging  more  quickly  than  the  buckling  loads.  The  results 
also  seem  to  converge  more  quickly  than  for  the  [+45]^ 
laminate,  though  it  is  not  an  immediate  convergence  as  in  the 
[0/90]j  case.  Figures  12  and  13  show  the  curvature  effects 
for  this  laminate,  with  the  same  trends  as  found  for  the 
previous  laminates.  Again,  similar  to  the  [0/90]^  laminate, 
there  are  points  that  seem  inconsistent. 


Figure  11.  Convergence  Characteristics  for  Natural 
Frequencies,  Simply  Supported  Boundary, 
[0/+45/90],,  a=b=20,  h/R=l/20 
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Figure  12.  Curvature  Effects  for  Critical  Buckling  Load, 
Simply  Supported  Boundary,  [0/±45/90]j 
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Figure  13.  Curvature  Effects  for  Natural  Frequencies, 

Simply  Supported  Boundary,  [0/+45/90], 

From  the  comparisons  of  the  stiffness  terms  for  this  ply 
layup  against  the  corresponding  stiffness  terms  for  the 
[0/90]j  and  the  [±45]  layups,  one  would  expect  the  results  to 
also  fall  between  them.  Figures  14  through  16  give  graphical 
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comparisons.  It  can  be  seen  that  the  magnitudes  of  the 
buckling  loads  and  frequencies  for  the  [0/145/90]^  layup  are 
consistently  higher  than  the  loads  and  frequencies  for  the 
[0/90]g  layup.  This  effect  seems  to  decrease  as  h/r  decreas¬ 
es,  but  increases  with  increasing  a/h  ratios.  For  a/h  =  10, 
the  buckling  load  is  about  40%  higher  for  h/R  =  20,  while  at 
h/R  =  0,  the  difference  is  only  about  25%  higher.  At  a/h  = 
40,  the  difference  decreases  from  about  90%  at  h/i  =  20  to  30% 
at  h/R  =  0. 

The  frequencies  follow  the  same  trends,  except  that  the 
per  cent  differences  are  smaller.  For  a/h  =  10,  the  frequen¬ 
cies  for  the  [0/±45/90]g  range  from  about  20%  higher  at  h/R  = 
20  to  10%  higher  at  h/R  =  0.  For  b/h  =  40,  the  frequencies 
range  from  about  40%  higher  at  h/R  =  20  to  about  10%  higher  at 
h/R  =  0. 

Comparison  was  next  made  with  the  [+45]^  laminate. 
Trends  were  not  as  obvious  in  this  case.  The  frequencies 
resulting  from  this  case  were  consistently  lower  than  the 
[±45]g  case,  with  only  one  exception.  There  did  not  seem  to 
be  an  obvious  relationship  between  differences  and  the 
dimensions  of  the  panel,  as  there  seemed  to  be  in  comparison 
with  the  [0/90]j  layup. 

Comparison  of  the  buckling  loads  for  the  two  ply  layups 
produced  very  different  results  than  for  the  frequencies.  The 
buckling  loads  were  not  consistently  lower  as  were  the 
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frequencies.  For  a  curvature  of  h/R  of  1/20,  the  buckling 
loads  were  in  fact  larger  for  the  [0/145/90]^  laminate  than 
for  the  [±45g]  laminate  (see  Figure  14).  However,  as  the 
radius  increased,  the  loads  did  become  less  than  those  for  the 
[±45]g  laminate.  Figure  15  shows  the  same  plot  for  h/R  of 
1/50.  For  larger  panels,  b/h  of  30  and  40,  only  for  h/R  equal 
to  zero  did  the  loads  become  smaller. 


[0/9O]a 

a 

[0/45/-4.5/901 

['*S/-4S1 


b/h 

Figure  14.  Comparison  of  Critical  Buckling  Loads  for 

Different  Ply  Layups,  Simply  Supported  Boundary, 
h/R=l/20 
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15.  Comparison  of  Critical  Buckling  Loads  for 

Different  Ply  Layups,  Simply  Supported  Boundary 
h/R=l/50 
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Figure  16.  Comparison  of  Natural  Frequencies  for 

Different  Ply  Layups,  Simply  Supported  Boundary, 
h/R=l/20 
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The  effect  of  nonsymmetric  laminates  on  the  buckling 
loads  and  natural  frequencies  was  studied  next.  A  nonsymmetr¬ 
ic  laminate  will  have  nonzero  terms  in  its  B-^  stiffness 
matrix,  which  represents  the  coupling  between  extension  and 
bending.  The  same  holds  true  for  the  corresponding  higher 
order  stiffness  matrices  [G.^],  and  [1,^]-  The  effect  of 
this  coupling  should  make  the  laminate  less  stiff,  and  thus 
decrease  the  buckling  loads  and  frequencies.  Jones  presented 
solutions  for  which  the  effect  of  nonsymmetry  lowered  frequen¬ 
cies  by  as  much  as  40%  (9:248-283).  Whitney  also  preformed 
work  in  this  area,  and  produces  similar  results  (28). 

First,  a  [0/90/0/90]  ply  layup  was  assumed,  (or  [0/90]^^), 
and  entered  into  the  simply  supported  problem.  Its  stiffness 
elements  are  presented  in  Table  4.  For  this  particular 
laminate,  the  solutions  are  found  to  converge  immediately  at 
M  -  N  =  2.  Again,  an  exact  solution  exists. 

The  results  for  both  the  critical  buckling  loads  and  the 
natural  frequencies  follow  the  same  trends  found  for  the 
symmetric  case.  The  effects  of  varying  the  curvature  and  span 
to  thickness  ratio  is  the  same  as  observed  for  the  symmetric 
laminates . 

The  results  when  compared  to  the  symmetric  case  are  not 
quite  as  expected.  Figures  17  through  20  show  graphical 
comparisons.  For  both  cases,  the  frequencies  and  buckling 
loads  are  very  close.  In  nearly  all  cases,  the  results  for 
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the  antisyiranetric  case  were  less  than  those  of  the  synunetric 
case.  Yet  for  large  values  of  a/h,  some  increases  were  seen. 
This  is  not  as  the  theory  governing  laminate  behavior  would 
predict . 


b/h 

Figure  17.  Comparison  of  Critical  Buckling  Loads  for  [0/90], 
vs  [0/90],,  Simply  Supported  Boundary,  h/R=l/50 
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Noturd  Froqutncy  (rod/soc) 


Figure  18.  Comparison  of  Critical  Buckling  Loads  for  [0/90]^ 
vs  [0/90],j  Simply  Supported  Boundary,  h/R=l/20 
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Figure  19.  Comparison  of  Natural  Frequencies  for  [0/90],  vs 
[0/90],,  Simply  Supported  Boundary,  h/R=l/20 


Figure  20.  Comparison  of  Natural  Frequencies  for  [0/90]^  vs 
[0/90],j  Simply  Supported  Boundary,  h/R=0 


Next,  a  [±45]jj  ply  layup  was  investigated.  Its  stiffness 
elements  are  presented  in  Figure  5.  Results  for  this  laminate 
were  similar  to  the  results  found  for  the  [0/90],,  layup. 
Figures  21  through  24  show  graphical  comparisons  for  buckling 
loads  and  natural  frequencies.  In  Figure  21,  the  buckling 
loads  for  the  antisymmetric  laminate  are  higher  than  the 
symmetric  laminate,  on  the  order  of  10%  for  an  h/R  value  of 
1/20.  Increasing  the  radius  resulted  in  loads  that  were 
closer  to  the  symmetric  case,  as  shown  in  Figure  22,  yet  still 
higher.  Figures  22  and  23  show  the  natural  frequencies  for 
the  antisymmetric  laminate  were  typically  very  close  to  the 
frequencies  for  the  symmetric  case,  but  again  slightly  higher. 
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»  21.  Comparison  of  Critical  Buckling  Loads  for  [±45] 
vs  [±45],5  Simply  Supported  Boundary,  h/R  =  1/20 


Figure  22.  Comparison  of  Critical  Buckling  Loads  for  [i45] 
vs  [+45]  Simply  Supported  Boundary,  h/R=l/50 


Figure  23. 


Comparison  of  Natural  Frequencies  for  [±45]^  vs 
[+45],j  Simply  Supported  Boundary,  h/R=l/20 


Figure  24.  Comparison  of  Natural  Frequencies  for  [±45]^  vs 
[*45],,  Simply  Supported  Boundary,  h/R*l/50 
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Several  hypotheses  were  investigated  to  determine 
possible  causes  for  these  results.  No  errors  were  found  in 
the  FORTRAN  code  after  extensive  searching.  In  addition,  the 
excellent  agreement  with  Linneman's  results,  plus  the  logical 
and  consistent  trends  established  and  followed  for  all  cases 
investigated  would  seem  to  indicate  no  programming  errors. 

The  behavior  of  the  general  eigenvalue  problem  was  also 

/ 

investigated.  It  was  thought  that  the  matrices  built  from  the 
Galerkin  equations  might  be  ill-conditioned,  or  very  sensitive 
to  small  perturbations  (6:598-604;  30:941-949).  This  also 
turned  out  not  to  be  the  case. 

Two  other  ideas  were  proposed  that  may  lend  some  insight 
on  these  unexpected  results.  Jones  (9:255-283)  presents 
result  for  antisymmetric  laminated  flat  plates,  having  high 
modulus  ratios,  E^/Ej  =  40  and  ply  thickness  of  0.005  inch. 
He  found  that  for  large  numbers  of  plies,  the  effect  of 
bending-coupling  decreases  rapidly.  Whitney  (28)  made  similar 
conclusions.  The  laminates  investigated  in  this  work  all  have 
thicknesses  of  1.0  inch.  These  would  have  the  equivalent  of 
200  plies  in  Jones'  analysis.  Reddy  (22)  also  found  that 
material  with  lower  modulus  ratios  were  less  effected  by 
nonsymmetry. 

It  may  be  possible  that  the  relatively  large  thickness  of 
the  plies,  or  the  moderately  low  modulus  ratio  for  the 
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material  used  in  this  analysis,  E^/Ej  =  15,  is  counteracting 
tha  effect  of  the  nonsyrometry . 

Additionally,  Jones  describes  cases  where  similar  results 
were  found,  using  the  Rayleigh-Ritz  method,  due  to  a  relative¬ 
ly  inaccurate  solution  and  the  inability  to  satisfy  natural 
boundary  conditions  (9:282).  Chen  and  Shu  (5)  alluded  to 
finding  similar  results  for  some  cases  using  a  large  deflec¬ 
tion  model.  These  cases  may  or  may  not  be  related  to  the 
cause  of  the  unexpected  results  found  in  this  thesis,  yet  it 
does  indicate  that  the  results  obtained  here  are  not  unique. 

Finally,  the  effects  of  the  higher  order  stiffness  terms, 
etc.,  are  also  unknown.  The  effects  of  the 
and  stiffness  elements  have  been  documented  by  many 

investigators.  These  higher  order  elements  however,  are  not 
fully  understood.  It  may  be  possible  that  the  presence  of 
these  terms  in  a  nonsymmetric  laminate  cause  unexpected 
behavior . 
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Clamped  Boundary  Condition 


The  next  case  investigated  is  the  clamped  boundary 
condition.  The  results  for  this  case  were  examined  for  the 
same  trends  as  were  the  simply  supported  cases.  First, 
symmetric  layups  were  run,  and  compared  to  results  obtained 
from  Linneman  (10).  The  results  compare  very  well,  again 
serving  to  validate  the  work  performed  in  this  analysis. 
Following  this  validation,  the  effects  of  the  [0/145/90]^  ply 
layup  and  nonsyrometry  are  investigated  for  this  boundary. 

The  solutions  are  first  checked  for  convergence,  as 
described  previously.  The  assumed  solutions  do  not  satisfy 
the  natural  clamped  boundary  conditions,  therefore  the 
resulting  buckling  loads  and  frequencies  are  not  expected  to 
converge  as  quickly  as  for  the  simply  supported  case. 

Figures  25  and  26  show  some  typical  convergence  charac¬ 
teristics  for  the  [0/90],  laminate.  The  results  verify  that 
the  convergence  is  not  as  fast  as  for  the  simply  supported 
case,  for  either  problem,  but  indicate  good  convergence 
characteristics  nonetheless.  Numerical  results  presented  in 
Tables  7  and  8  demonstrate  that  the  frequencies  converge  more 
rapidly  than  the  buckling  loads,  as  in  the  simply  supported 
case. 

An  interesting  note  is  the  convergence  behavior  for  short 
(b/h  =  10)  panels.  This  particular  laminate  behaves  differ- 
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ently  in  convergence  than  the  others.  While  the  larger 
laminates  converge  from  a  large  value  and  decrease  by  smaller 
and  smaller  amounts,  this  case  does  not.  As  indicated  in 
Figure  25,  there  is  an  initial  decrease,  then  the  solutions 
are  seen  to  increase  by  smaller  amounts. 


Figure  25.  Convergence  Characteristics  for  Critical  Buckling 
Loads,  Clamped  Boundary  [0/90],,  a=b=10,  h/R=l/20 
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Figure  26.  Convergence  Characteristics  for  Natural 
Frequencies,  Clamped  Boundary, 

[0/90],,  a=b=10,  h/R=l/20 


Table  7.  Convergence  of  Critical  Buckling  Load  (Ib/in)  and 
Natural  Frequency  (rad/sec)  for  [0/90]  ,  Clamped 
(R  *  20.0  in,  h  *  1.0  in,  a  =  b  =  10.0  in) 


M  *  N 

%  Decrease 

(0 

%  Decrease  | 

2 

337233.43 

... 

16649.12 

1 

4 

327211.45 

-2.97 

15982.47 

1 

• 

o 

o 

6 

329209.28 

+0.61 

15960.64 

-0.14  1 

8 

330801.91 

00 

• 

o 

+ 

15979.57 

+0.12  1 

10 

331868.15 

+0.32 

16001.19 

+0.14  1 

101 


Table  8.  Convergence  of  Critical  Buckling  Load  (Ib/in)  and 
Natural  Frequency  (rad/sec)  for  [0/90]^,  Clamped 
(R  =  50.0  in,  h  =  1.0  in,  a  =  b  =  40.0  in) 


M  =  N 

%  Decrease 

(0 

%  Decrease 

2 

223823.22 

3112.16 

.... 

4 

79166.73 

-64.63 

2092.27 

-32.77 

6 

77013.96 

-2.72 

2023.20 

-3.30 

8 

76327.19 

-0.89 

2003.47 

-0.98 

10 

76048.48 

-.36 

1996.57 

-0.34 

Figures  27  and  28  show  the  effects  of  curvature  for  this 
laminate.  Once  again,  the  effects  of  deeper  shells  on  the 
buckling  loads  and  frequencies  are  the  same.  The  buckling 
loads  are  greatly  affected  by  the  curvature,  increasing 
considerably  for  an  h/R  ratio  of  1/20  versus  a  flat  plate. 
The  frequencies  are  also  seen  to  increase,  as  expected. 
Compared  with  the  buckling  load  behavior,  the  effect  is 
relatively  small.  This  is  just  as  seen  for  the  simply 
supported  boundary. 

Compared  with  the  results  for  the  simply  supported  case, 
the  buckling  loads  and  frequencies  for  the  clamped  [0/90]^ 
laminate  are  much  larger  for  all  configurations  investigated. 
The  difference  is  quite  dramatic  for  the  buckling  loads,  on 
the  order  of  50  to  90%  larger  for  h/R  of  1/20,  and  as  h/R 
approaches  zero,  up  to  four  times  larger.  The  differences  for 
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Figure  27.  Curvature  Effects  on  Critical  Buckling  Loads, 
Clamped  Boundary,  [0/90], 


the  frequencies  are  not  quite  so  large,  on  the  order  of  40% 
for  h/R  of  1/20,  but  still  reaching  over  100%  for  flat  plates. 


The  [±45],  laminate  also  produced  results  that  are  larger 
than  the  corresponding  layup  in  the  simple  supported  boundary, 
however,  not  nearly  as  much  as  the  [0/90]^  case.  The  buckling 
loads  and  frequencies  are  on  the  order  of  10  to  20%  higher  for 
large  h/R  values,  and  20  to  50%  higher  as  h/R  approaches  zero. 
The  buckling  loads  follow  a  similar  scale.  Some  results  for 
the  [±45]j  laminated  are  presented  in  Figures  29  and  30,  and 
numerical  results  in  Tables  9  and  10.  Again,  convergence 
appears  very  good.  However,  in  some  of  the  shorter  laminates, 
b/h  =  10,  slight  increases  appear  in  the  results  for  M  =  N  = 
10.  These  increases  are  very  small, and  could  be  caused  by 
simple  round-off  errors.  However,  they  may  be  indications  of 
divergence  beyond  M  =  N  =  10. 
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Figure  29.  Convergence  Characteristics  for  Critical  Buckling 
Loads,  Clamped  Boundary,  [±45],,  a=b=30,  h/R=l/20 


M.  N 

Figure  30.  Convergence  Characteristics  for  Natural 


Frequencies,  Clamped  Boundary, 
[±45],,  a«b=30,  h/R=l/20 


Table  9.  Convergence  of  Critical  Buckling  Load  (Ib/in)  and 
Natural  Frequency  (rad/sec)  for  [+453^,  Clamped 
(R  =  50.0  in,  h  =  1.0  in,  a  =  b  =  10.0  in) 


%  Decrease  u  %  Decrease 


1 

1 

1 

16535.28 

-26.27 

15817.05 

-0.55 

15752.59 

-0.05 

15752.74 

+ 

o 

• 

o 

U) 

15762.25 

-0.41 


+0.06 


Table  10.  Convergence  of  Critical  Buckling  Load  (Ib/in)  and 
Natural  Frequency  (rad/sec)  for  [+45],,  Clamped 
(R  =  20.0  in,  h  =  1.0  in,  a  =  b  =  30.0  in) 


M  =  N 

Ni 

%  Decrease 

(i> 

%  Decrease 

2 

434764.02 

..... 

8055.56 

... 

4 

169984.12 

-60.90 

5298.00 

-3.23 

6 

120581.26 

-29.09 

5099.41 

-3.75 

8 

119528.51 

-0.87 

5036.63 

-1.23 

10 

119299.60 

-0.19 

5011.82 

• 

o 

1 
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Figures  31  and  32  below  show  the  curvature  effects  for 
this  laminate,  and  as  expected,  it  also  exhibits  the  same 
behavior  as  all  the  previous  cases. 


Figure  31.  Curvature  Effects  on  Critical  Buckling  Loads, 
Clamped  Boundary,  [i45]. 


The  comparison  of  the  [0/90],  and  the  [±45],  laminates  for 
the  clamped  boundary  produced  some  very  interesting  results. 
While  both  the  buckling  loads  and  natural  frequencies  were 
consistently  lower  for  the  [0/90],  simply  supported  laminate 
than  for  the  [±45],  laminate,  this  is  not  the  case  for  the 
clamped  condition.  The  frequencies  are  lower  for  the  [±45], 
laminate  for  flat  plates,  and  as  the  curvature  increases,  the 
frequencies  become  greater  than  those  of  the  [0/90], laminate. 
The  buckling  loads  are  consistently  larger  for  the  [0/90], 
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laminate. 

This  would  initially  appear  to  be  an  inconsistency.  One 
would  think  that  the  buckling  loads  and  natural  frequencies 
would  behave  similarly.  Looking  at  the  results/  there  is  no 
aberrant  behavior  that  would  indicate  this  an  error;  conver¬ 
gence  characteristics  are  excellent,  and  all  the  results 
follow  the  trends  established  previously. 

The  [0/±45/90]j  ply  layup  was  next  investigated  for  the 
clamped  boundary.  Its  convergence  characteristics  are  similar 
to  those  of  the  [+45],  laminate,  in  that  for  a/h  =  10,  the 
solutions  display  an  initial  decrease,  and  then  increase  to 
asymptotically  approach  a  constant  value.  Some  results  are 
presented  in  Figures  33  and  34  below,  with  numerical  results 
in  Tables  11  and  12. 
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33.  Convergence  Characteristics  for  Critical 
Buckling  Loads,  Clamped  Boundary, 
[0/±45/90],,  a=b=10,  h/R=l/50 
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Figure  34.  Convergence  Characteristics  for  Natural 
Frequencies,  Clamped  Boundary, 
[0/±45/90]  ,  a=b=10,  h/R=l/50 
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Table  11.  Convergence  of  Critical  Buckling  Load  (Ib/in)  and 
Natural  Frequency  (rad/sec)  for  [0/145/90]^,  Clamped 
(R  =  50.0  in,  h  =  1.0  in,  a  =  b  =  10.0  in) 


M  =  N 

%  Decrease 

(i> 

%  Decrease 

2 

339951.68 

- - 

16635.43 

— 

4 

327579.00 

-3.64 

16047.65 

-3.53 

6 

329423.18 

+0.55 

16027.12 

-0.13 

8 

331201.89 

+0.54 

16046.70 

+0.12 

10 

332469.38 

+0.38 

16068.69 

+0.14 

Table  12.  Convergence  of  Critical  Buckling  Load  (Ib/in)  and 
Natural  Frequency  (rad/sec)  for  [0/+45/90],, 
Clamped,  (R  =  20.0  in,  h  =  1.0  in,  a  =  b  =  20.0  in) 


M  =  N 

%  Decrease 

o 

%  Decrease 

2 

402111.19 

1 

1 

1 

8839.18 

— 

4 

267400.17 

-33.50 

7993.68 

-9.57 

6 

265808.95 

-0.60 

7937.18 

-0.70 

8 

265534.83 

-0.10 

7927.97 

-0.12 

10 

265499.61 

1 

o 

• 

o 

7928.33 

-0.01 
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Curvature  effects  are  the  same  as  previous  cases,  deeper 
shells  showing  increases  in  frequency  and  even  larger  increas¬ 


es  in  buckling  loads.  These  results  are  presented  in 
Figures  35  and  36  below.  These  indicate  once  again  a  small 


increase  in  the  results  for  the  natural  frequencies  at 


fa/h 


Figure  36.  Curvature  Effects  on  Natural  Frequencies/ 
Clamped  Boundary/  [0/±45/90] 


The  results  were  then  compared  to  the  [0/90],  and  [[±45], 
laminates/  as  was  done  for  the  simply  supported  case.  Some  of 
these  results  are  shown  in  Figures  37  and  38 .  Some  comparable 
trends  were  found:  the  buckling  loads  and  frequencies  for  the 
[0/±45/90],  laminate  are  again  much  higher  than  those  for  the 
[0/90],. 

In  comparison  to  the  [±45],  laminates/  the  buckling  loads 
are  consistently  higher  for  the  [0/±45/90],  laminates.  The 
loads  are  on  the  order  of  40%  higher  for  small  a/h  ratios  and 
increase  to  approximately  100%  higher  for  a/h  of  40.  The 
differences  between  the  loads  are  also  seen  to  decrease  with 
increasing  radius. 
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Figure  37.  Comparison  of  Critical  Buckling  Loads  for 

Different  Ply  Layups,  Clamped  Boundary,  h/R=l/20 


b/h 

Figure  38.  Comparison  of  Natural  Frequencies  for  Different 
Ply  Layups,  Clamped  Boundary,  h/R=l/20 


However,  the  behavior  of  the  frequencies  is  not  compara¬ 
ble  to  the  simply  supported  case,  where  the  frequencies  were 


350 


b/h 

Figure  40.  Comparison  of  Critical  Buckling  Loads  for  [0/90]^ 
vs  [0/90],^  Clamped  Boundary,  h/R=l/20 


The  buckling  loads  are  on  the  order  of  10%  lower  for  the 
antisymmetric  case  for  all  panel  dimensions  investigated. 
These  results  are  as  expected,  and  would  appear  to  indicate 
good  results  for  this  laminate. 

The  natural  frequencies  do  not  exhibit  similar  behavior, 
however.  The  frequencies  show  decreases  for  nearly  all  cases. 
However,  for  b/h  =  10  and  40  in  Figure  41,  and  for  b/h  =  10  in 
Figure  42,  the  frequencies  are  seen  to  be  larger  for  the 
nonsymmetric  case,  although  they  are  very  close  for  all  cases, 
differing  by  less  than  5%.  The  same  was  true  for  the  simply 
supported  antisymmetric  laminates. 
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Figure  41.  Comparison  of  Natural  Frequencies  for  [0/90],  vs 
[0/90]a,  Clamped  Boundary,  h/R=l/20 


b/h 

Figure  42.  Comparison  of  Natural  Frequencies  for  [0/90],  vs 
[0/90]„  Clamped  Boundary,  h/R=l/50 


Figures  43  and  44  show  some  typical  results  for  the 
[+45]j,j  clamped  laminate  compared  against  the  symmetric  ply 
layup.  Again,  the  buckling  loads  and  frequencies  are  all 
higher  for  the  antisymmetric  case.  The  frequencies  are  again 
very  close  for  both  laminates. 


Figure  43.  Comparison  of  Critical  Buckling  Loads  for  [±45] 
vs  [±45],,  Clamped  Boundary,  h/R=l/20 


Nafird  Frcqumey  (rod/Mc) 
(Thousands) 
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Clamped -Simple  Boundary  Condition 


This  boundary  condition  assumes  circumferential  edges  of 
the  panel  clamped,  and  the  longitudinal  edges  simply  support¬ 
ed.  Bowlus  and  Reams  investigated  the  effects  of  this  type  of 
boundary  on  flat  plates  assuming  Mindlin  type  shear  relations 
(2;  18).  No  results  for  a  cylindrical  shell  could  be  found 
using  the  same  higher  order  shear  theory  applied  in  this  work. 

Only  two  ply  layups  were  investigated  for  this  boundary 
condition,  the  [0/90]^  and  the  [±45]^.  Figures  45  through  50 
show  typical  results  for  each  of  the  layups.  They  show  good 
convergence  characteristics  and  follow  the  same  trends 
established  by  the  other  boundary  conditions,  where  the 
frequencies  are  seen  to  converge  slightly  faster  than  the 
buckling  loads. 
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45.  Convergence  Characteristics  for  Critical 
Buckling  Loads,  Clamped-Simple  Boundary, 
[0/90],,  a=b=10,  h/R=l/20 


1  2 


Figure  46.  Convergence  Characteristics  for  Natural 
Frequencies,  Clainped-Siniple  Boundary, 
[0/90]  ,  a=b=10,  h/R=l/20 
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Figure  47 .  Convergence  Characteristics  for  Critical 
Buckling  Loads /  Clamped -Simple  Boundary, 
[0/90],,  a=b=40,  h/R=l/50 


Figure  48.  Convergence  Characteristics  for  Natural 
Frequencies,  Clamped- Simple  Boundary, 
[0/90],,  a=b»40,  h/R=l/50 
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Figure  49.  Convergence  Characteristics  for  Critical 
Buckling  Loads,  Clamped-Simple  Boundary, 
[±45],,  a=b=10,  h/R=l/50 
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Figure  50.  Convergence  Characteristics  for  Natural 
Frequencies,  Clamped -Simple  Boundary, 
[+45].,  a=b=10,  h/R=l/50 
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Figure  54.  Curvature  Effects  on  Natural  Frequency, 
Clamped -Simple  Boundary,  [±45], 


Bowlus  and  Reams  presented  their  results  in  nondimens ion- 
alized  form,  for  comparisons  to  the  other  boundary  conditions. 
They  both  showed  that  the  buckling  loads  and  frequencies  for 
the  clamped-simple  boundary  conditions  fell  between  those  for 
the  simple  and  clamped  boundary  conditions.  The  same  results 
are  found  for  this  analysis  for  the  cylindrical  shell. 

Nondimensionalized  results  from  both  Reams  and  Bowlus 
indicate  the  magnitudes  of  the  critical  buckling  loads  and 
natural  frequencies  for  this  boundary  condition  fall  between 
those  for  simply  supported  on  all  sides  and  clamped  on  all 
sides.  The  same  results  are  found  for  the  shells 
examined  here,  with  one  exception. 
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Figures  55  through  61  compare  the  critical  buckling  loads 
and  natural  frequencies  for  the  [0/90]^  laminate  for  different 
curvatures.  Despite  the  anomalous  behavior  of  the  simply 
supported  points  described  earlier,  this  indicates  that  for 
this  ply  layup,  the  buckling  loads  for  the  clamped-simple 
boundary  seem  to  more  closely  emulate  the  purely  clamped 
boundary.  The  results  fall  in  between  the  simple  and  clamped 
cases,  but  there  is  quite  a  difference  between  the  simple 
boundary  condition  and  the  clamped-simple  case,  especially  for 
lower  b/h  ratios.  This  difference  is  also  indicated  in  the 
natural  frequencies,  though  the  effect  is  not  as  obvious. 
This  behavior  is  due  to  the  clamping  along  the  circumferential 
direction  dominating  the  behavior  of  the  laminate.  The 
results  for  the  [±45]  ply  layup  do  not  show  quite  the  same 
behavior.  Examining  the  case  for  a  radius  of  20,  see 
Figure  59,  it  is  seen  that  the  buckling  loads  for  the  clamped- 
simple  boundary  are  slightly  higher  than  both  the  clamped  and 
simple  boundaries.  At  the  larger  radius,  see  Figure  61,  the 
loads  fall  below  those  for  the  clamped  case.  However,  the 
differences  between  the  results  for  each  boundary  condition 
are  very  small,  on  the  on  the  order  of  a  few  percentages,  that 
this  behavior  could  be  neglected  for  practical  purposes.  The 
results  for  the  natural  frequencies  of  the  [±45],  laminates 
are  also  very  close  for  all  boundary  conditions.  Figure  60 
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shows  the  clamped- simple  results  falling  between  the  two,  with 
no  obvious  inclinations  to  one  side. 


b/h 

Figure  56.  Comparison  of  Natural  Frequencies  for  Different 
Boundary  Conditions,  [0/90],,  h/R  =  1/20 


Crifled  Budding  Load  (b/ln) 
(Thousands) 


IV. 


Summary  and  Conclusions 


A  theory  has  been  developed  for  general  nonsynunetric 
leuninated  shells,  including  a  parabolic  transverse  shear 
distribution.  A  computer  program  was  developed  to  solve  for 
the  critical  buckling  loads  and  natural  frequencies. 

A  variety  of  symmetric  and  nonsymmetric  laminates  were 
studied,  with  simply  supported,  clamped,  and  clamped- simple 
boundary  conditions. 

The  following  conclusions  were  reached  from  the  results 
of  this  analysis. 

First,  the  solutions  generated  from  the  Galerkin  tech¬ 
nique  had  excellent  convergence  characteristics  for  all 
leuninates  investigated.  Convergence  was  slower  for  the 
buckling  problems  and  for  the  clamped  and  clamped-simple 
boundary  conditions.  There  were  some  indications  for 
M  =  N  =  10  terms  of  increases  in  the  buckling  loads  and 
frequencies.  These  increases  were  very  small,  and  divergence 
seems  unlikely.  However,  increasing  the  maximum  number  of 
terms  in  the  solutions  is  recommended  just  to  make  sure  there 
is  in  reality  no  divergence.  There  were  some  results  for  the 
simply  supported  boundary  that  did  not  follow  the  trends 
established.  These  points  are  assumed  to  be  incorrect,  as  the 
majority  of  the  results  follow  consistent,  logical  trends. 
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The  curvature  of  the  shells  was  varied  to  measure  the 
effects  for  each  laminate,  symmetric  and  nonsymmetric,  for 
each  of  the  boundary  conditions.  The  results  showed  that  the 
deeper  the  shell,  the  higher  the  stiffness.  Differences 
between  buckling  loads  for  deep  shells  and  flat  plates  was 
significant.  The  frequencies  were  also  affected,  but  not  to 
the  extent  of  the  buckling  problem. 

The  natural  frequencies  obtained  for  each  boundary 
condition  were  generally  greater  for  the  [+45]^  laminates  than 
for  the  [0/90],,  due  to  the  presence  of  additional  stiffness 
terms .  This  is  not  the  case  for  the  buckling  problems .  The 
[0/90],  laminates  yielded  larger  buckling  loads  for  the 
clamped  and  clamped-simple  boundary  condition,  and  also  for 
small  a/h  ratios  in  the  simply  supported  boundary. 

The  [0/±45/90],  laminates  produced  buckling  loads  and 
frequencies  consistently  higher  than  the  [0/90],  laminates  for 
both  the  simple  and  clamped  boundaries.  The  buckling  loads 
were  higher  than  the  loads  for  the  [±45],  laminates  for  both 
boundaries  considered,  while  the  frequencies  were  lower  for 
the  simply  supported  case,  and  some  of  the  clamped  results. 

The  antisymmetric  results  are  not  as  expected.  Only  for 
one  case  did  the  antisymmetric  buckling  loads  fall  consistent¬ 
ly  below  the  symmetric  case,  the  clamped  [0/90]  laminate.  The 
majority  of  the  laminates  investigated,  including  simple  and 
clamped  boundaries  with  [0/90],,  and  [+45]„  ply  layups. 
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resulted  in  buckling  loads  and  frequencies  that  were  higher 
for  the  antisymmetric  laminate. 

Finally,  the  clamped-simple  boundary  condition  produced 
results  that  agreed  with  previous  work.  The  results  for  the 
critical  buckling  loads  and  natural  frequencies  for  the  most 
part  fell  between  the  values  obtained  from  a  purely  simply 
supported  and  a  purely  clamped  boundary.  Clamping  the 
circumferential  length  resulted  in  the  buckling  loads  greatly 
influenced  by  the  clamped  behavior,  seeming  to  follow  the 
behavior  of  a  purely  clamped  boundary.  The  frequencies  did 
not  seem  to  be  as  affected. 

Much  work  remains  to  be  done.  The  behavior  of  the 
antisymmetric  laminates  versus  the  symmetric  found  here  may  be 
explained  by  the  effects  of  the  large  number  of  plies  as 
discussed  in  the  previous  chapter.  Further  investigations 
should  be  done  to  determine  if  this  is  the  case. 

Another  logical  continuation  from  this  work  would  be  to 
include  throughout  the  development  the  through  the  thickness 
shear  strain  c^,  to  determine  its  effects. 


133 


THIS  PAGE  BLANK 


134 


Appendix  A.  Transverse  Shear 


This  appendix  shows  the  development  of  the  displacement 
functions  based  on  the  boundary  condition  of  zero  transverse 
shear  strain  at  the  top  and  bottom  surface  of  the  laminate. 


This  appendix  focuses  on  Yyz*  development  relating 

to  Yxz  same. 

The  strain  expression  of  Eq  (2),  assuming  z/R  *  0  is 
shown  below. 


Yyr  =  ^  (A.l) 

Substituting  the  displacement  relations  of  Eq  (1)  int  Eq  (A.l) 
gives  the  following: 


V 

=  _£  +  * 
R 


+  2z^2  *  * 


'^o.y 


zi, 


1  + 


R  R 


(A. 2) 


The  above  simplifies  with  z/R  «  0  to 

Yyz  ~  *  2z<J>2  32^63  ^o,y  z^ , y  (A.  3) 


To  satisfy  the  boundary  conditions,  evaluate  Eq  (A. 3)  at  z  = 
±h/2  and  set  equal  to  zero; 
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'^y  ^  *‘t>2  +  ^02  +  ° 

-  ^2  +  -^02  +  »^*o,y  --^5=0 


(A. 4) 


Adding  the  above  expressions  results  in  the  following: 


4»2  =  - 


(A. 5) 
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Appendix  B.  Computer  Code 


This  appendix  contains  a  listing  of  the  FORTRAN  code 
used  for  this  thesis.  The  program  included  is  that  for  the 
simply  supported  boundary  condition.  The  codes  for  the 
clamped  and  clamped- simple  boundary  conditions  are  identi¬ 
cal,  except  for  the  Galerkin  equations  used  in  the  GALERK 
subroutine.  These  additional  subroutines  are  not  included 
here,  as  the  equations  are  given  in  the  Theoretical  Develop¬ 
ment. 
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n  n 


Program  MAINTHESIS 


c  CAPT  KATHLEEN  V.  TIGHE 
c 

CGAE-9ID 

c 

c  THE  DETERMINATION  OF  THE  FUNDAMENTAL  NATURAL  FREQUENCY  AND 
c  CRITICAL  BUCKLING  LOAD  OF  AN  ANISOTROPIC  LAMINATED  CIRCULAR 
c  CYLINDRICAL  SHELL  PANEL  INCLUDING  THE  EFFECTS  OF  PARABOLIC 
c  TRANSVERSE  SHEAR  DEFORMATION  AND  ROTARY  INERTIA 
C 

c  THESIS  ADVISOR;  DR  ANTHONY  PALAZ0TTO 
c 

C - 

c 

c  INITIALIZATION 
c 

Double  Precision  A,  B,  R,  H,  PI,  A1 1,  A12,  A22,  A16,  A26,  A66, 

&  A44,  A45,  ASS,  Dll,  D12,  D22,  D16, D26, D66, D44, D4S, DSS, 

&  Fll,  F12,  F22,  F16,  F26,  F66,  F44,  F4S,  FSS,  Hll,  H12,  H22, 

&  H16,  H26,  H66,  J1 1,  J12,  J22,  J16,  J26,  J66,  Bll,  B12,  B22, 

&  B16,  B26,  B66,  Ell,  E12,  E22,  E16,  E26,  E66,  Gil,  G12,  G22, 

&  G16,  G26,  G66,  Ill,  112, 122, 116, 126, 166, TPLY, 

&  THETA(IOO),  El,  E2,  GM12,  V12,  V21,  G13,  G23,  STIFF(S00,S00), 

&  MASS(S00,S00),  BETA(SOO),  RHO,  REVEC(IOO) 
c 

Double  Complex  ALPHA(SOO),  EVAL(S00),  EVEC(SOO,SOO) 
c 

c  WORKSPACE  ALLOCATION  FOR  IMSL 
c 

Common  /WORKSP/  RWKSP 
Real  RWKSP(3003026) 

Call  IWKIN(3003026) 
c 

Open  (Unit=  1  ,File= ’main.in’,Status= ’OLD’) 

Open  (Unit=2,File=’main.out’,Status=’NEW’) 
c 

c  IS  THIS  A  VIBRATION  PROBLEM  OR  A  BUCKLING  PROBLEM  ? 

NBUCVIB  =  1  ;  VIBRATION.  NBUCVIB  =  2;  BUCKLING. 

Read  (1,1300)  NBUCVIB 
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c 

c 

c  READ  SHELL  PANEL  DIMENSIONS  AND  LAMINATE  DATA 
c 

c  DIMENSIONAL  DATA 
c 

C  LENGTH  IN  THE  X  DIRECTION  (LONGITUDINAL  AXIS) 

Read  (1,1000)  A 

c  LENGTH  IN  THE  Y  DIRECTION  (CIRCUMFERENCIAL  AXIS) 

Read  (1,1000)  B 

c  RADIUS  OF  CURVATURE 
Read  (1,1000)  R 
c  LAMINATE  THICKNESS 
Read  (1,1000)  H 
PI  =  3.1415926553588793 

c  LENGTH  TO  SPAN  RATIO  AND  THICKNESS  RATIO 
AOVERB  =  A/B 
HOVERR  =  H  /  R 
AOVERH  =  A  /  H 
BOVERH  =  B  /  H 
c 

c  LAMINATE  DATA 
c 

c  NUMBER  OF  PLYS  IN  THE  LAMINATE 
Read  (1,1300)  NPLYS 

c  THICKNESS  OF  EACH  PLY  IN  THE  LAMINATE 
TPLY  =  H /NPLYS 

c  ORIENTATION  ANGLE  OF  EACH  PLY  IN  THE  LAMINATE 
Do  101  =  1,  NPLYS 
Read  (1,1000)  THETA(I) 

10  Continue 

c  MATERIAL  PROPERTIES  OF  EACH  PLY 
Read  (1,1000)  El 
Read  (1,1000)  E2 
Read  (1,1000)  GM12 
Read  (1,1000)  V12 
Read  (1,1 100)  RHO 
V21  =  V12*E2/E1 

c  FOR  THIS  THESIS,  G13  AND  G23  WILL  HAVE  THE  FOLLOWING  VALUES  . 
G13  =  GM12 
G23  =  0.8*GM12 
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c- 


c  WRITE  SHELL  PANEL  DIMENSIONS  AND  LAMINATE  DATA 
c 

Write  (2,1400) 

If(NBUCVIB.EQ.l)Then 
Write  (2,1500) 

Else 

Write  (2,1600) 

End  If 

Write  (2,1700) 

Write  (2,1800) 

Write  (2,1900)  A,  B,  AOVERB 
Write  (2,2000)  H,  AOVERH,  BOVERH 
Write  (2,2100)  R,  HOVERR 
Write  (2,2200) 

Write  (2,2300> 

Do  20 1  =  1,  NPLYS 
Write  (2,2400)  THETA(I) 

20  Continue 

Write  (2,2500)  NPLYS,  H 
Write  (2,2600)  TPLY 
Write  (2,2700)  El,  E2 
Write  (2,2800)  GM12 
Write  (2,2900)  G13,  G23 
Write  (2,3000)  VI 2,  V21 
Write  (2,3100)  RHO 
c 

c - 

c 

c  CALCULATE  THE  BENDING,  EXTENSIONAL,  AND  HIGHER  ORDER 
c  STIFFNESS  ELEMENTS  FOR  A  GENERAL  NON-SYMMETBIC  LAMINATE. 

C 

Call  LAMINAT(NPLYS,TPLY,THETA,E1,E2,GM12,V12,V21,G13,G23,PI,H,A1 1, 
&  A12,A22,A16,A26,A66,A44,A45,A55,D1 1T)I2,D22,D16,D26,D66,D44, 

&  D45T)55,F11,F12,F22,F16,F26,F66,F44,F45,F55,H11,H12,H22,H16, 

&  H26,H66  J1 U12J22J  16^26  J66,B1 1  ,B  12,B22,B16,B26,B66,E1 1 , 

&  E12,E22,E16,E26,E66,G11,G12,G22,G16,G26,G66,I1 1,112,122,116, 

&  126,166) 
c 

c 

c  WRITE  LAMINATE  STIFFNESS  ELEMENTS 
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Write  (2,3200) 

Write  (2,3300)  A1 1,  A12,  A22 
Write  (2,3400)  A16,  A26,  A66 
Write  (2,3500)  A44,  A45,  A55 
Write  (2,3600) 

Write  (2,3700)  Bll,  B12,  B22 
Write  (2,3800)  B16,  B26,  B66 
Write  (2,3900) 

Write  (2,4000)  D1 1,  D12,  D22 
Write  (2,4100)  D16,  D26,  D66 
Write  (2,4200)  D44, 1345,  D55 
Write  (2,4300) 

Write  (2,4400) 

Write  (2,4500)  Ell,  E 12,  E22 
Write  (2,4600)  E16,  E26,  E66 
Write  (2,4700)  FI  1,F  12,  F22 
Write  (2,4800)  F16,  F26,  F66 
Write  (2,4900)  F44,  F45,  F55 
Write  (2,5000)  G1 1,  G12,  G22 
Write  (2,5100)  G16,  G26,  G66 
Write  (2,5200)  HI  1,  H12,  H22 
Write  (2,5300)  H16,  H26,  H66 
Write  (2,5400)  III,  112, 122 
Write  (2,5500)  116, 126, 166 
Write  (2,5600)  J11,J12,J22 
Write  (2,5700)116,  J26,  J66 


c  DETERMINE  THE  DIMENSION  OF  THE  MASS  AND  STIFFNESS  MATRICES, 
c 

Read  (1,1300)  MMAX 
MSIZE  =  5  •  MMAX  •  MMAX 
MSIZESQ  =  MMAX  •  MMAX 
If(NBUCVIB.EQ.l)Then 
Write  (2,5800) 

Write  (2,6000)  MMAX,  MSIZE,  MSIZE 
Write  (2,6100) 

Else 

Write  (2,5900) 

Write  (2,6200) 

Write  (2,6300) 
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Write  (2,6000)  MMAX,  MSIZE,  MSIZE 
End  If 

c 

c  USING  THE  BENDING,  EXTENSIONAL,  AND  HIGHER  ORDER  STIFFNESS 
c  ELEMENTS  AND  THE  SHELL  PANEL  PHYSICAL  CHARACTERISTICS  AS 
c  INPUTS,  CALCULATE  THE  STIFFNESS  AND  MASS  MATRICES  AND  THEN 
c  FIND  THE  NATURAL  FREQUENCIES  AND/OR  AXIAL  BUCKLING  LOAD  AND 
c  THEIR  RESPECTIVE  MODE  SHAPES. 

C 

Call  GALERK(PI,R,H,A,B,A1 1,A12,A22,A16,A26,A66,A44,A45,A55,D1 1, 

&  D12,D22,D16,D26,D66,D44,D45,D55,F1 1,F12,F22,F16,F26,F66,F44, 

&  F45,F55,H11,H12,H22,H16,H26,H66,J1U12,J22J16,J26,J66,B11, 

&  B  12,B22,B  1 6,B26,B66,E  1 1  ,E  1 2,E22,E  1 6,E26,E66,G  1 1  ,G  12,G22,G  1 6, 

&  G26,G66,I1  l,I12,I22,I16,I26,I66,NBUCVIB,MMAX,MSIZE,RHO,STIFF, 

&  MASS,BETA,ALPHA,EVAL,EVEC,MSIZESQ,REVEC) 


Stop 

c 

c  FORMAT  STATEMENTS 
c 

lOOOFomat  (FI 5.5) 

1100  Format  (D22.15) 

1200  Format  (E12.5) 

1300  Format  (15) 

1400  Format  {////, 5X, 

&  ’ANISOTROPIC  LAMINATED  CIRCULAR  CYLINDRICAL  SHELL  PANEL’) 
1500  Format  (//,5X, ’VIBRATION  PROBLEM’) 

1600  Format  (//,5X,’BUCKLING  PROBLEM’) 

1700  Format  (//,5X,’S2  SIMPLY  SUPPORTED  BOUNDARY  CONDITIONS’) 

1800  Format  (///,5X,’SHELL  PANEL  DIMENSIONS  (in.)’) 

1900  Format  (/,5X,’a  =  ’,lX,F6.2,4X,’b  =  ’,lX,F6.2,4X,’a^  =  ’,1X,F6.2) 

2000  Format  (/,5X,’h  =  ’,IX,F4.2,4X,’aAi  =  ’,lX,F6.2.4X,’b/h  =  ’,1X,F6 

&  .2) 

2100  Format  (/,5X,’R  =  ’,lX,E12.5,6X,’h/R  =  ’,1X,F10.8) 

2200  Format  (//,5X,’SHELL  PANEL  LAMINATE  DATA’) 

2300  Format  (//,5X,’LAMINATE  PLY  LAYUP  (DEGREES)’) 

2400  Format  (/,30X,F7.2) 

2500  Format  (/,3X,I3,2X,’PLYS  IN  THIS’,2X,F4.2,2X,’in.  THICK  LAMINATE’) 

2600  Format  (/,5X,’EACH  PLY  IS’,lX,E12.5,2X,’ins.  THICK’) 

2700  Format  (/,5X,’ELASTICITY  MODULII  (psi) ;  El  =  ’,E12.5,2X,’E2=  ’ 

&  ,E12.5) 

2800  Format  (/,5X,’IN  PLANE  SHEAR  MODULUS  (psi):  G12  =  ’,E12.5) 
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2900  Format  (/,5X,TRANSVERSE  SHEAR  MODULII  (psi):  G13  =  ’,E12.5,2X, 

&  ’G23  = ’,E12.5) 

3000  Format  (/,5X, ’POISSONS  RATIOS:  V12  =  ’,1X,F6.4,3X,’V21  =  ’,1X,F6.4 

&  ) 

3100  Format  (/, 5X, ’MASS  DENSITY  (LB*SEC'"2/INM):  RHO  =  ’, IX, D18.il) 

3200  Format  (///,5X,’EXTENSIONAL  STIFFNESS  ELEMENTS  (Ib/in)’) 

3300  Format  (/,5X.’A11  =  ’,F15.3,3X,’A12  =  ’.F15.3,3X,’A22  =  ’,F15.3) 

3400  Format  (/,5X,’A16  =  ’,F15.3,3X,’A26  =  ’,F15.3,3X,’A66  =  ’,F15.3) 

3500  Format  (/,5X,’A44  =  ’,F15.3,3X,’A45  =  ’,F15.3.3X,’A55  =  ’,F15.3) 

3600  Format  (///,5X, ’COUPLING  STIFFNESS  ELEMENTS  (lb?)’) 

3700  Format  (/,5X,’B11  =  ’,F15.3,3X,’B12  =  ’,F15.3,3X,’B22  =  ’,F15.3) 

3800  Format  (/,5X,’B16  =  ’,F15.3,3X,’B26  =  ’,F15.3.3X,’B66  =  ’,F15.3) 

3900  Format  (//,5X, ’BENDING  STIFFNESS  ELEMENTS  (lb  *  in)’) 

4000  Format  (/.5X,’D11  =  ’,F15.3,3X,’D12  =  ’,F15.3.3X,’D22  =  ’,F15.3) 

4100  Format  (/,5X,’D16  =  ’,F15.3,3X,’D26  =  ’.F15.3,3X,’D66  =  ’.F15.3) 

4200  Format  (/,5X,’D44  =  ’,F15.3,3X,’D45  =  ’,F15.3.3X,’D55  =  ’,F15.3) 

4300  Format  (//,5X,’HIGHER  ORDER  STIFFNESS  ELEMENTS’) 

4400  Format  (5X,’Fij  (in  •  lb^3),  Hij(in  *  lb^5  ),  Jij(in  *  lb^7)’) 

4500  Format  (/,5X,’E11  =  ’,F15.3,3X,’E12  =  ’,F15.3.3X,’E22  =  ’,F15.3) 

4600  Format  (/,5X,’E16  =  ’,F15.3,3X,’E26  =  ’,F15.3,3X,’E66  =  ’,F15.3) 

4700  Format  (//,5X,’F11  =  ’.F15.3,3X,’F12  =  ’,F15.3,3X,’F22=  ’,F15.3) 

4800  Format  (/,5X,’F16  =  ’,F15.3,3X,’F26  =  ’,F15.3,3X,’F66  =  ’.F15.3) 

4900  Format  (/,5X,’F44  =  ’,F15.3,3X,’F45  =  ’,F15.3,3X,’F55  =  ’,F15.3) 

5000  Format  (//,5X,’G11  =  ’,F15.3,3X,’G12  =  ’,F15.3,3X,’G22=  ’,F15.3) 

5100  Format  (/,5X,’G16  =  ’,F15.3,3X,’G26  =  ’,F15.3,3X,’G66  =  ’,F15.3) 

5200  Format  (//,5X.’H11  =  ’,F15.3,3X.’H12  =  ’,F15.3,3X,’H22=  ’,F15.3) 

5300  Format  (/,5X.’H16  =  ’,F15.3,3X,’H26  =  ’,F15.3,3X.’H66  =  ’,F15.3) 

5400  Format  (//,5X,’I11  =  ’,F15.3,3X,’I12  =  ’,F15.3,3X,’I22=  ’,F15.3) 

5500  Format  (/,5X,’I16  =  ’,F15.3,3X,’I26  =  ’,F15.3,3X,’I66  =  ’,F15.3) 

5600  Format  (//,5X,’J11  =  ’,F15,3,3X,’J12  =  ’,F15.3,3X,’J22=  ’,F15.3) 

5700  Format  (/,5X,’J16  =  ’,F15.3,3X,’J26  =  ’,F15.3,3X,’J66  =  ’,F15.3) 

5800  Format  (///,5X, 

&  ’VIBRATION  EIGENVALUE  ANALYSIS  -  FIRST  10  MODES  PRINTED’) 

5900  Format  (///,5X,’BUCKLING  EIGENVALUE  ANALYSIS  -  ALL  MODES  PRINTED’) 
6000  Format  (//.5X,’MMAX  =  NMAX  =  ’,I2,5X, 

&  ’STIFFNESS  AND  MASS/INERTIA  MATRICES  ARE  ( ’,13, IX,’  BY  ’,1X, 

&  13,’)’) 

6100  Format  (///,5X,’MODE  NUMBER  ’,11X,’  EIGENVALUE  ’,14X, 

&  ’NATURAL  FREQUENCY  ( RAD/SEC )’) 

6200  Format  (5X,THE  CRITICAL  BUCKLING  LOAD  IS  THE  EIGENVALUE  WITH’) 
6300  Format  (5X,THE  SMALLEST  ABSOLUTE  VALUE  ’) 

End 
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Subroutine  LAMINAT(NPLYS,TPLY,THETA,E1.E2.GM12,V12,V21,G13,G23,PI, 

&  H,A11,A12,A22,A16,A26,A66,A44,A45.A55,D11.D12,D22,D16,D26,D66, 

&  D44,D45,D55,F  1 1  ,F  12,F22,F  1 6,F26,F66,F44,F45,F55,H  1 1  ,H  12,H22, 

&  H 1 6,H26,H66  J 1 1 J  12,J22,J  1 6,  J26.J66,B  1 1  ,B12,B22,B  1 6,B26,B66, 

&  E11,E12,E22,E16,E26,E66,G11,G12,G22,G16,G26,G66, 111,112,122, 

&  116,126,166) 
c 

c 

c  THIS  SUBROUTINE  CALCULATES  THE  BENDING,  COUPLINGC  EXTENSIONAL, 
C  AND  HIGHER  ORDER  STIFFNESS  ELEMENTS  FOR  THE  LAMINATE, 
c 

c  THIS  THESIS  ASSUMES  A  HOMOGENEOUS  LAMINATE  -  MATERIAL 
c  PROPERTIES  ARE  IDENTICAL  FOR  EACH  PLY.  THE  THICKNESS  IS  THE  SAME 
c  FOR  EACH  PLY. .  ONLY  THE  ORIENTATION  ANGLE  CAN  CHANGE, 
c 

Double  Precision  H,  PI,  All,  A12,  A22,  A16,  A26,  A66,  A44,  A45, 

&  A55,  D1 1,  D12,  D22,  D16,  D26,  D66,  D44,  D45,  D55,  Fll,  F12, 

&  F22,  F16,  F26,  F66,  F44,  F45,  F55,  HI  1,  H12,  H22,  H16,  H26, 

&  H66,  ill,  J 12,  J22,  J16,  J26,  J66,  Bll,  B12,  B22,  B16,  B26, 

&  B66,  Ell,  E12,  E22,  E16,  E26,  E66,  Gll,  G12,  G22,  G16,  G26, 

&  ti66,  II 1, 112, 122, 116, 126, 166,  TPLY,  THETA(100),  El,  E2, 

&  GM12,  V12,  V21,  G13,  G23,  Qll,  Q12,  Q22,  Q44,  Q55,  Q66, 

&  QBARl  1,  QBAR12,  QBAR16,  QBAR22,  QBAR26,  QBAR44,  QBAR45, 

&  QBAR55,  QBAR66,  ZK,  ZKl,  TH(IOO),  ZKO,  ZK3,  ZK5,  ZK7,  ZK9 
c 

c  REDUCED  STIFFNESS  ELEMENTS  IN  PRINCIPLE  COORDINATES 
Qll  =  El  /(1.0-V12*V21) 

Q12  =  V12  •  E2  /  (1.0-V12*V21) 

Q22  =  E2/(1.0-V12*V21) 

Q44  =  G23 
Q55  =  G13 
Q66  =  GM12 

c  INITIALIZE  ALL  STIFFNESS  ELEMENTS  TO  ZERO 
All  =0. 

A12  =  0. 

A22  =  0. 

A16  =  0. 

A26  =  0. 

A66  =  0. 

A44  =  0. 
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A45  =  0. 
A55  =  0. 
Bll  =0. 
B12  =  0. 
B22  =  0. 
B16  =  0. 
B26  =  0. 
B66  =  0. 
Dll  =0. 
D12  =  0. 
D22  =  0. 
D16  =  0. 
D26  =  0. 
D66  =  0. 
D44  =  0. 
D45  =  0. 
D55  =  0. 
Ell  =0. 
E12  =  0. 
E22  =  0. 
E16  =  0. 
E26  =  0. 
E66  =  0. 
Fll  =0. 
F12  =  0. 
F22  =  0. 
F16  =  0. 
F26  =  0. 
F66  =  0. 
F44  =  0. 
F45  =  0. 
F55  =  0. 
Gll  =0. 
G12  =  0. 
G22  =  0. 
G16  =  0. 
G26  =  0. 
G66  =  0. 
Hll  =0. 
H12  =  0. 
H22  =  0. 
H16  =  0. 
H26  =  0. 
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H66  =  0. 

111  =0. 

112  =  0. 

122  =  0. 

116  =  0. 

126  =  0. 

166  =  0. 

Jll  =0. 

J12  =  0. 

J22  =  0. 

J16  =  0. 

J26  =  0. 

J66  =  0. 

c  IN  ORDER  FROM  THE  FIRST  PLY  AT  Z  =  -  H/2  TO  THE  TOP  PLY  AT 
c  z  =  +  H/2,  INPUT  THE  PLY  ORIENTATION  ANGLE,  THETA.  THEN  IN 
c  TURN  CALCULATE  THE  QBARS  AND  THE  STIFFNESS  ELEMENTS  FOR  THAT 
c  PLY.  REPEAT  THE  PROCEDURE  FOR  ALL  PLYS,  THEN  ADD  THE  PLY 
c  STIFFNESS  ELEMENTS  TOGETHER  TO  GET  THE  LAMINATE  STIFFNESS 
c  ELEMENTS. 

c  INITIALIZE  Z  TO  THE  BOTTOM  OF  THE  LAMINATE 


ZKl  =  -H  /  2.0 
Do  10 1  =  1,  NPLYS 
TH(I)  =  THETAa)  *  PI  / 180.0 


c  COMPUTE  THE  QBARS  -  TRANSFORMED  REDUCED  STIFFNESS  ELEMENTS 
c  IN  GLOBAL  COORDINATES. 

QBARl  1  =  Q1 1  *  DCOS(THa))  **  4  +  2.0  •  (Q12+2.0*Q66)  * 

&  DSIN(TH(I))  •*  2  •  DCOSaHa))  *•  2  +  Q22  *  DSIN(TH(I))  •*  4 
QBAR12  =  (Q1 1+Q22-4.0*Q66)  *  DSIN(THa))  **  2  •  DCOSCTH®)  **  2 
&  +  Q12  •  (DSIN(THa))**4+DCOS(TH(I))**4) 

QBAR16  =  (Q11-Q12-2.0*Q66)  •  DSIN(THa))  *  DCOS(TH(I))  •*  3  +  ( 

&  Q12-Q22+2.0*Q66)  •  DSIN(THa))  **  3  •  DCOS(TH(I)) 

QBAR22  =  Q1 1  •  DSIN(TH(I))  ••  4  +  2.0  •  (Q12+2.0*Q66)  • 

&  DSIN(TH(I))  ••  2  •  DCOSOna))  **  2  +  Q22  •  DCOSaHa))  **  4 
QBAR26  =  (Q1 1-Q12-2.0*Q66)  •  DSIN(TH(I))  ••  3  •  DCOSaH(I))  +  ( 

&  Q12-Q22+2.0*Q66)  •  DSIN(THa))  *  DCOS(TH(I))  ••  3 

QBAR44  =  Q44  •  DCOS(TH(I))  ••  2  +  Q55  •  DSIN(THa))  **  2 
QBAR45  =  (Q44-Q55)  •  DCOS(THa))  *  DSIN(TH(I)) 

QBAR55  =  Q55  •  DCOS(TH(I))  ••  2  +  Q44  •  DSINaH(I))  **  2 
QBAR66  =  (Q11+Q22-2.0*Q12-2.0*Q66)  •  DSIN(TH(I))  •*  2  • 
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&  DCOS(TH(I))  •*  2  +  Q66  •  (DSIN(TH(I))**4+DCOS(TH(I))**4) 


c 

c  TOP  AND  BOTTOM  LOCATION  OF  PLY(I) 
ZK  =  ZKl  +  TPLY 

c  EXTENSIONAL  STIFFNESS  ELEMENTS 
ZKO  =  ZK  -  ZKl 
All  =  QBAR11  •  ZKO  +  All 
A12  =  QBAR12  *  ZKO  +  A12 
A22  =  QBAR22  *  ZKO  +  A22 
A16  =  QBAR16  •  ZKO  +  Ai6 
A26  =  QBAR26  •  ZKO  +  A26 
A66  =  QBAR66  *  ZKO  +  A66 
A44  =  QBAR44  *  ZKO  +  A44 
A45  =  QBAR45  •  ZKO  +  A45 
ASS  =  QBARSS  •  ZKO  +  ASS 
c 

c  COUPLING  STIFFNESS  ELEMENTS 
ZK2  =  (ZK**2-ZK1**2)  /  2.0 
Bll  =QBAR11  •ZK2  +  B11 
B12  =  QBAR12  *  ZK2  +  B12 
B22  =  QBAR22  •  ZK2  +  B22 
B16  =  QBAR16  •  ZK2  +  B16 
B26  =  QBAR26  *  ZK2  +  B26 
B66  =  QBAR66  •  ZK2  +  B66 
c 

c  BENDING  STIFFNESS  ELEMENTS 
ZK3  =  (ZK**3-ZKl**3)/3.0 
Dll  =QBAR11  •ZK3  +  D11 
D12  =  QBAR12  •  ZK3  +  D12 
D22  =  QBAR22  •  ZK3  +  D22 
D16  =  QBAR16  •  ZK3  +  D16 
D26  =  QBAR26  •  ZK3  +  D26 
D66  =  QBAR66  •  ZK3  +  D66 
D44  =  QBAR44  •  ZK3  +  D44 
D4S  =  QBAR4S  •  ZK3  +  D4S 
DSS  =  QBARSS  •  ZK3  +  DSS 
c 

c  HIGHER  ORDER  STIFFNESS  ELEMENTS 
ZK4  =  (ZK**4-ZKr*4)  /  4.0 
Ell  =QBAR11  •ZK4  +  E11 
E12  =  QBAR12  •  ZK4  +  E12 
E22  =  QBAR22  •  ZK4  +  E22 
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E16  =  QBAR16*ZK4  +  E16 
E26  =  QBAR26  •  ZK4  +  E26 
E66  =  QBAR66  *  ZK4  +  E66 
c 

ZK5  =  (ZK**5-ZK1**5)  /  5.0 
Fll  =QBAR11  *ZK5  +  F11 
F12  =  QBAR12  *  ZK5  +  F12 
F22  =  QBAR22  •  ZK5  +  F22 
F16  =  QBAR16  •  ZK5  +  F16 
F26  =  QBAR26  •  ZK5  +  F26 
F66  =  QBAR66  •  ZK5  +  F66 
F44  =  QBAR44  •  ZK5  +  F44 
F45  =  QBAR45  •  ZK5  +  F45 
F55  =  QBAR55  *  ZK5  +  F55 
c 

ZK6  =  (ZK**6-ZK1**6)  /  6.0 
Gil  =QBAR1I  *ZK6  +  G11 
G12  =  QBAR12  •  ZK6  +  G12 
G22  =  QBAR22  •  ZK6  +  G22 
G16  =  QBAR16  •  ZK6  +  G16 
G26  =  QBAR26  •  ZK6  +  G26 
G66  =  QBAR66  •  ZK6  +  G66 
c 

ZK7  =  (ZK**7-ZK1«7)  /  7.0 
Hll  =QBAR11  •ZK7  +  H11 
H12  =  QBAR12  •  ZK7  +  H12 
H22  =  QBAR22  •  ZK7  +  H22 
H16  =  QBAR16  •  ZK7  +  H16 
H26  =  QBAR26  •  ZK7  +  H26 
H66  =  QBAR66  •  ZK7  +  H66 
c 

ZK8  =  (ZK**8-ZK1**8)  /  8.0 

111  =QBAR11  •ZK8  +  I11 

112  =  QBAR12  •  ZK8  +  112 
122  =  QBAR22  •  ZK8  +  122 
116  =  QBAR16  •  ZK8  +  116 
126  =  QBAR26  *  ZK8  +  126 
166  =  QBAR66  *  ZK8  +  166 

c 

ZK9  =  (ZK**9-ZK1**9)  /  9.0 
Ill  =QBAR11  •ZK9  + Ill 
J12  =  QBAR12*ZK9  + J12 
J22  =  QBAR22  •  ZK9  +  J22 
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n  n 


J16  =  QBAR16  •  ZK9  +  J16 
J26  =  QBAR26  *  ZK9  +  J26 
J66  =  QBAR66  *  ZK9  +  J66 
c  GO  TO  NEXT  LAYER 
ZKl  =  ZK 
10  Continue 
Return 
End 


Subroutine  GALERK(PI, R,H, A, B.A11.A12,A22,A16,A26,A66,A44,A45,A55, 
&  Dll  ,D1 2,D22,D  1 6.D26,D66,D44,D45,D55,F1 1  ,F  12.F22,F  1 6,F26,F66, 

&  F44,F45,F55,H  1 1  ,H  1 2,H22,H  1 6,H26,H66,J  1 1  ,J  12,J22,J  1 6,J26  J66, 

&  B11.B12,B22,B16,B26,B66,E11,E12.E22,E16.E26.E66.G11,G12,G22, 

&  G16,G26,G66,I1  l,I12,I22,I16,I26,I66,NBUCVIB,MMAX,MSIZE,RHO, 

&  STIFF, MASS.BETA,ALPHA,EVAL,EVEC.MSIZESQ,REVEC) 


c  THIS  SUBROUTINE  GENERATES  THE  GALERKIN  EQUATIONS  AND  FORMS 
c  THE  MASS  AND  STIFFNESS  MATRICES.  THEN  IT  CALLS  DGVCRG,  AN 
c  IMSL  SUBROUTINE  WHICH  SOLVES  THE  EIGENVALUE  PROBLEM; 

[STIFF]{X}  =  (OMEGA^2  OR  N1BAR)[MASS]{X} 

Double  Precision  PI,  R,  H,  A,  B,  A1 1,  A12,  A22,  A16,  A26,  A66, 

&  A44,  A45,  A55,  Dll,  D12,  D22,  D16,  D26,  D66,  D44,  D45,  D55, 

&  Fll,  F12,  F22,  F16,  F26,  F66,  F44.  F45,  F55,  HI  1,  H12,  H22, 

&  H16,  H26,  H66,  Jll,  J12,  J22,  J16,  J26,  J66,  Bll,  B12,  B22, 

&  B16,  B26,  B66,  Ell,  E12,  E22,  E16,  E26,  E66,  Gll,  G12,  G22, 

&  G16,  G26,  G66,  II  1, 112, 122, 116, 126, 166, 

&  STIFF(MSIZE,MSIZE),  MASS(MSIZE,MSIZE),  AUO,  BUO,  CUO,  EUO, 

&  GUO,  AVO,  BVO,  CVO,  EVO,  GVO,  AW,  BW,  CW,  EW,  GW,  AJX,  BJX, 

&  CJX,  EJX,  GJX,  AJY,  BJY,  CJY,  EJY,  GJY 

Double  Precision  AUOMASS,  BUOMASS,  CUOMASS,  EUOMASS,  GUOMASS,  & 
&  AVOMASS,  BVOMASS,CVOMASS,  EVOMASS,  GVOMASS,  AWMASS,  BWMASS, 
&  CWMASS,  EWMASS,  GWMASS,  AJXMASS,  BJXMASS,  CJXMASS,  EJXMASS, 

&  GJXMASS,  AJYMASS,  BJYMASS.  CJYMASS,  EJYMASS,  GJYMASS,  RHO, 

&  I2BARPR,  I3BARPR,  I5BAR,  17, 1 1 , 14BAR 
Integer  P,  Q,  M,  N,  MMAX,  NMAX 
c  THESE  VARIABLES  NEEDED  FOR  THE  IMSL  EIGENVALUE  SOLVER  . 

Double  Precision  BETA(MSIZE),  REVAL,  OMEGA,  AGEVAL,  AGEVEC, 

&  REVEC(MSIZESQ) 

Double  Complex  ALPHA(MSIZE),  EVAL(MSIZE),  EVEC(MSIZE,MSIZE) 


c  NUMBER  OF  TERMS  IN  THE  ADMISSIBLE  FUNCTIONS 
NMAX  =  MMAX 


150 


c  GENERATE  GALERKIN  EQUATIONS 
1=  1 
J=  1 

Do  10P=  l.MMAX 
Do  10Q=  l.NMAX 
Do20M  =  l.MMAX 
Do20N  =  l.NMAX 
c 

C - 

c  COMPUTE  STIFFNESS  MATRIX  ELEMENTS 

c 

If  (M.EQ.P.  AND.N.EQ.Q)  Then 

••**•••*•*•**•*••««* *****««**««***«*«•* ***••«*•••****•*•»**•***•* 

•  The  following  equations  correspond  to  the  Galerkin  * 

•  Equations  for  Case  I,  Eqs  67  through  71  • 


c  •*  corresponding  to  Eq  (67)  ** 
c 

AUO  =  -(((12*PI**2*B66*A**3*H**2-16*PI**2*E66*A**3)*Q**2 
&  +(12*PI**2*B1 1*A*B**2*H**2-16*PI**2*E1 1*A*B**2)*P**2 

&  )*R**2+(24*PI**2*F66*A**3-18*PI**2*D66*A**3*H**2)*Q 

&  ••2*R+(6*PI**2*E66*A**3*H**2-8*PI**2*G66*A**3)*Q**2) 

&  /  (A**2*B*H**2*R**2)  /  48.0 

BUO  =  -(((12*PI**2*B66+12*PI**2*B12)*A**2*B*H**2+( 

&  - 1 6»PI**2*E66-  16*PI**2*E  12)*  A**2*B)*P*Q*R**2+(( 

&  -6*PI**2*D66-12*PI**2*D12)*A**2*B*H**2+(8*PI**2*F66+ 

&  16*PI**2*F12)*A**2*B)*P*Q*R)  /  (A**2*B*H**2*R**2)  / 

&  48.0 

CUO  =  -(((-32*PI**3*E66-16*PI**3*E12)*A**2*P*Q**2-16*PI 
&  ••3*E1 1*B**2*P**3)*R**2+((32*PI**3*F66+16*PI**3*F12) 

&  •A**2*P*Q**2-12*PI*A12*A**2*B**2»H**2*P)*R-8*PI**3* 

&  G66*A**2*P*Q**2)  /  (A**2*B*H**2*R**2)  /  48.0 

EUO  =  -((12*PI**2*A66*A**3*H**2*Q**2+12*PI**2*A11*A*B**2 
&  •H**2*P**2)*R**2-12*PI**2*B66*A**3*H**2*Q**2*R+3*PI 

&  •*2*D66*A**3*H**2*Q**2)  /  (A**2*B*H**2*R**2)  /  48.0 

GUO  =  -((12*Pr*2*A66+12*PI**2*A12)*A**2*B*H**2*P*Q*R**2 
&  -3*PI**2*D66*A**2*B*H**2*P*Q)  /  (A**2*B*H**2*R**2)  / 

&  48.0 

c 

c  •*  corresponding  to  Eq  (68)  ** 
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AVO  =  -(((12*PI**2*B66+12*PI**2*B12)*A*B**2*H**2+( 

&  -16*PI**2*E66-16*PI**2*E12)*A*B**2)*P*Q*R**2+(8*PI** 

&  2*F66*A*B**2-6*PI**2*D66*A*B**2*H**2)*P*Q*R+(8*PI**2 

&  •G66*A*B**2-6*PI**2*E66*A*B**2*H**2)*P*Q)  /  (A*B**2* 

&  H**2*R**2)/48.0 

BVO  =  -(((12*PI**2*B22*A**2*B*H**2-16*PI**2*E22*A**2*B)* 

&  Q**2+(12*Pr*2*B66*B**3*H**2-16*PI**2*E66*B**3)*P**2 

&  )*R**2+((16*PI**2*F22*A**2*B-12*PI**2*D22*A**2*B*H** 

&  2)*Q**2+(6*PI**2*D66*B**3*H**2-8*PI**2*F66*B**3)*P** 

&  2)*R)  /  (A*B**2*H**2*R**2)  /  48.0 

CVO  =  -((((-32*PI**3*E66-16*PI**3*E12)*B**2*P**2 
&  )*Q-16*PI**3*E22*A**2*Q**3)*R**2+(16*PI**3*F22*A**2* 

&  Q**3-12*PI*A22*A**2*B**2*H**2*Q)*R+8*Pr*3*G66*B**2* 

&  P**2*Q)  /  (48*A*B**2*H**2*R**2) 

EVO  =  -((12*PI**2*A66+12*PI**2*A12)*A*B**2*H**2*P*Q*R**2 
&  -3*PI**2*D66*A*B**2*H**2*P*Q)  /  (A*B**2*H**2*R**2)  / 

&  48.0 

GVO  =  -((12*PI**2*A22*A**2*B*H**2*Q**2+12*PI**2*A66*B**3 
&  •H**2*P**2)*R**2+  12*PI**2*B66*B**3*H**2*P**2*R+3*PI 

&  ••2*D66*B**3*H**2*P**2)  /  (A*B**2*H**2*R**2)  /  48.0 

c 

c  ••  corresponding  to  Eq  (69)  •* 
c 

AWl  =  (((24*PI**5*F66+l2*PI**5*F12)*A**3*B**2*H**2+( 

&  -32*PI**5*H66-l6*PI**5*H12)*A**3*B**2)*P**2*Q**3+(( 

&  12*PI**5*Fll*A*B**4*H**2-16*PI**5*Hll*A*B**4)*P**4+( 

&  .9*PI**3*A55*A**3*B**4*H**4+72*PI**3*D55*A**3*B**4*H 

&  ••2-144*PI**3*F55*A**3*B**4)*P**2)*Q)  /(PI**2*A**3* 

&  B**3*H**4*P*Q)  /  36.0 

AW2  =  ((((-36*PI**5*G66-12*PI**5*G12)*A**3*B**2*H**2+(48 
&  •PI**5*I66+16*PI**5*I12)*A**3*B**2)*P**2*Q**3+(9*PI 

&  ••3*B12*A**3*B**4*H**4-12*PI**3*EI2*A**3*B**4*H**2)* 

&  P**2*Q)*R+(12*PI**5*H66*A*»3*B**2*H**2-16*PI**5*J66* 

&  A**3*B*»2)*P**2*Q**3)  /  (PI**2*A**3*B**3*H**4*P*Q*R 

&  **2)  /  36.0 

AW  =  AWl  +  AW2 

BWl  =  ((12*PI**5*F22*A**4*B*H**2-16*PI**5*H22*A**4*B)*P* 
&  Q**4+(((24*PI**5*F66+12*PI**5*F12)*A**2*B**3*H**2+( 

&  -32*PI**5*H66-16*PI**5*H12)*A**2*B**3)*P**3+(-9*PI** 

&  3*A44*A**4*B*»3*H**4+72*PI**3*D44*A**4*B**3*H**2-144 

&  •PI**3*F44*A**4*B**3)*P)*Q**2)  /  (PI**2*A**3*B**3*H 

&  ••4*P*Q)  /  36.0 

BW2  =  (((32*PI**5*I22*A**4*B-24*PI**5*G22*A**4*B*H**2)*P 
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&  •Q**4+(((-12*PI**5*G66-12*PI**5*G12)*A**2*B**3*H**2+ 

&  (16*PI**5*I66+16*PI**5*I12)*A**2*B**3)*P**3+(9*PI**3 

&  •B22*A**4*B**3*H**4-12*PI**3*E22*A**4*B**3*H**2)*P)* 

&  Q**2)*R+(12*PI**5*H22*A**4*B*H**2-16*PI**5*J22*A**4* 

&  B)*P*Q**4+(I2*PI**3*F22*A**4*B**3*H**2-9*PI**3*D22*A 

&  ••4*B**3*H**4)*P*Q**2)  /  (PI**2*A**3*B**3*H**4*P*Q*R 

&  ••2)  /  36.0 

BW  =  BWl  +  BW2 

CWl  =  (-16*PI**6*H22*A**4*P*Q**5+((-64*PI»*6*H66-32*PI** 

&  6*H12)*A**2*B**2*P**3+(-9*PI**4*A44*A**4*B**2*H**4+ 

&  72*PI**4*D44*A**4*B**2*H**2-144*PI**4*F44*A**4*B**2) 

&  •P)*Q**3+((-9*PI**4*A55*A**2*B**4*H**4+72*PI**4*D55* 

&  A**2*B**4*H**2-144*PI**4*F55*A**2*B*M)*P**3-!  ’’I** 

&  6*H1 1*B**4*P**5)*Q)  /  (PI**2*A**3*B**3*H**4*P*Q)  / 

&  36.0 

CW2  =  ((32*PI**6*I22*A**4*P*Q**5+((64*PI**6*I66+32*PI**6 
&  •I12)*A**2*B**2*P**3-24*PI**4*E22*A**4*B**2*H**2*P)* 

&  Q**3-24*PI*M*E12*A**2*B**4*H**2*P**3*Q)*R-16*PI**6* 

&  J22*A**4*P*Q**5+(24*PI**4*F22*A**4*B**2*H**2*P-16*PI 

&  **6*J66*A**2*B**2*P**3)*Q**3-9*PI**2*A22*A*M*B**4*H 

&  **4*P*Q)  /  (PI**2*A**3*B**3*H**4*P*Q*R**2)  /  36.0 

CW  =  CWl  +  CW2 

EW  =  (((24*PI**5*E66+12*PI**5*E12)*A**3*B**2*H**2*P**2*Q 
&  •*3+I2*PI**5*Ell*A*B**4*H**2*P**4*Q)*R**2+((-24*PI** 

&  5*F66-12*PI**5*F12)*A**3*B**2*H**2*P**2*Q**3+9*PI**3 

&  •A12*A**3*B**4*H**4*P**2*Q)*R+6*PI**5*G66*A**3*B**2* 

&  H**2*P**2*Q**3)  /  (PI**2*A**3*B**3*H**4*P*Q*R**2)  / 

&  36.0 

GW  =  ((12*PI**5*E22»A»*4*B*H**2*P*Q**4+(24*PI**5*E66+12* 
&  PI**5*E12)*A**2*B**3*H**2*P**3*Q**2)*R**2+(9*PI**3* 

&  A22*A**4*B**3*H**4*P*Q**2-12*PI**5*F22*A**4*B*H**2*P 

&  •Q*M)*R-6*PI**5*G66*A**2*B**3*H**2*P**3*Q**2)  /  (PI 

&  ••2*A**3*B**3*H**4*P*Q*R**2)  /  36.0 

c 

c  **  corresponding  to  Eq  (70)  •• 
c 

AJX  =  -(((18*PI**2*D66*A**3*H**4-48*PI**2*F66*A**3*H**2+ 

&  32*PI**2*H66*A**3)*Q**2+(18*PI**2*D1  l*A*B**2*H**4-48 

&  •PI**2*F1 1*A*B**2*H**2+32*PI**2*H1 1*A*B**2)*P**2 

&  +  18*A55*A**3*B**2*H**4-144‘D55*A**3*B**2*H**2+288* 

&  F55*A**3*B**2)*R**2+(-36*PI**2*E66*A**3*H**4+96*PI** 

&  2*G66*A**3*H**2-64*PI**2*I66*A**3)*Q**2*R+(18*PI**2* 

&  F66*A**3*H**4-48*PI**2*H66*A**3*H**2+32*PI**2*J66* 
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&  A**3)*Q**2)  /  (72*A**2*B*H**4*R**2) 

BJX  =  -(((18*PI**2*D66+18*PI**2*D12)*A**2*B*H**4+( 

&  -48*PI**2*F66-48*PI**2*F12)*A**2*B*H**2+(32*PI**2* 

&  H66+32*PI**2*H12)*A**2*B)*P*Q*R**2+((-18*PI**2*E66- 

&  18*PI**2*E12)*A**2*B*H**4+(48*PI**2*G66+48*PI**2*G12 

&  )*A**2*B*H**2+(-32*PI**2*I66-32*PI**2*I12)*A**2*B)*P 

&  ‘Q’R)  /  (A**2*B*H**4*R**2)  /  72.0 

CJXA  =  -((((-48*PI**3*F66-24*PI**3*F12)*A**2*H**2+(64*PI 
&  **3*H66+32*PI**3*H12)*A**2)*P*Q**2+(32*PI**3*H11*B** 

&  2-24*PI**3*Fl  1*B**2*H**2)*P**3+(18*PI*A55*A**2*B**2* 

&  H**4-144*PI*D55*A**2*B**2*H**2+288*PI*F55*A**2*B**2) 

&  •P)*R**2+(((72*PI**3*G66+24*PI**3*Gl2)*A**2*H**2+( 

&  -96*PI**3*I66-32*PI**3*I12)*A**2)*P*Q**2+(24*PI*E12 

&  *A**2*B**2*H**2-18*PI*B12*A**2*B**2*H**4)*P)*R+(32* 

&  PI**3*J66*A**2-24*PI**3*H66*A**2*H**2)*P*Q**2) 

CJX  =  CJXA  /  (72*A**2*B*H**4*R**2) 

EJX  =  -(((18*PI**2*B66*A**3*H**4-24*PI**2*E66*A**3*H**2) 

&  *Q**2+(18*PI**2*B11*A*B**2*H**4-24*PI**2*E11*A*B**2* 

&  H**2)*P**2)*R**2+(36*PI**2*F66*A**3*H**2-27*PI**2* 

&  D66*A**3*H**4)*Q**2*R+(9*PI**2*E66*A**3*H**4-12*PI** 

&  2*G66*A**3*H*»2)*Q**2)  /  (A**2*B*H**4*R**2)  /  72.0 

GJX  =  -(((18*PI**2*B66+18*PI**2*B12)*A**2*B*H**4+( 

&  -24*PI**2*E66-24*PI**2*E12)*A**2*B*H**2)*P*Q*R**2+( 

&  12*P!**2*F66*A**2*B*H**2-9*PI**2*D66*A**2*B*H**4)*P* 

&  Q*R+(12*PI**2*G66*A**2*B*H**2-9*PI**2*E66*A**2*B*H** 

&  4)*P*Q)  /  (A**2*B*H**4*R**2)  /  72.0 

c 

c  •*  corresponding  to  Eq  (71) 

c 

AJY  =  -(((18*PI**2*D66+18*PI**2*D12)*A*B**2*H**4+( 

&  -48*PI**2*F66-48*PI**2*F12)*A*B**2*H**2+(32*PI**2* 

&  H66+32*PI**2*H  12)*  A*B**2)*P*Q*R**2+((-18*PI**2*E66- 

&  18*PI**2*E12)*A*B**2*H**4+(48*PI**2*G66+48*PI**2*G12 

&  )*A*B**2*H**2+(-32*PI**2*I66-32*PI**2*I12)*A*B**2)*P 

&  'Q’R)  /  (A*B**2*H**4*R**2)  /  72.0 

BJY  =  -(((18*PI**2*D22*A**2*B*H**4-48*PI**2*F22*A**2*B* 

&  H**2+32*PI**2*H22*A**2*B)*Q**2+(18*PI**2*D66*B**3*H 

&  **4-48*PI**2*F66*B**3*H**2+32*PI**2*H66*B**3)*P**2+ 

&  18*A44*A**2*B**3*H**4-144*D44*A**2*B**3*H**2+288* 

&  F44*A**2*B**3)*R**2+(-36*PI*»2*E22*A**2*B*H**4+96*PI 

&  ••2*G22*A**2*B*H**2-64*PI»*2*I22*A**2*B)*Q**2*R+(18* 

&  PI**2*F22*A**2*B*H**4-48*PI**2*H22*A'*2*B*H**2+32*PI 

&  ••2*J22*A**2*B)*Q**2)  /  (A*B**2*H**4*R**2)  /  72.0 
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CJYl  =  -((32*PI**3*H22*A**2-24*PI**3*F22*A**2*H**2)*Q**3 
&  +(((-48*PI**3*F66-24*PI**3*F12)*B**2*H**2+(64*PI**3* 

&  H66+32*PI**3*H12)*B**2)*P**2++18*PI*A44*A**2*B**2*H 

&  •*4-144*PI*D44*A**2*B**2*H**2+288*PI*F44*A**2*B**2)* 

&  Q)  /  (A*B**2*H**4)  /  72.0 

CJY2  =  -(((48*PI**3*G22*A**2*H**2-64*PI**3*I22*A**2)*Q** 
&  3+(((24*PI**3*G66+24*PI**3*G12)*B**2*H**2+(-32*PI**3 

&  *I66-32*PI**3*I12)*B**2)*P**2-18*PI*B22*A**2*B**2*H 

&  •*4+24*PI*E22*A**2*B**2*H**2)*Q)*R+(32*PI**3*J22*A** 

&  2-24*PI**3*H22*A**2*H**2)*Q**3+(18*PI*D22*A**2*B**2* 

&  H**4-24*PI*F22*A**2*B**2*H**2)*Q)  /  (A*B**2*H**4*R** 

&  2)  /  72.0 

CJY  =  CJYl  +  CJY2 

EJY  =  -(((18*PI**2*B66+18*PI**2*B12)*A*B**2*H**4+( 

&  -24*PI**2*E66-24*PI**2*El2)*A*B**2*H**2)*P*Q*R**2+(( 

&  -9*PI**2*D66-18*PI»*2*D12)*A*B**2*H**4+(12*PI**2*F66 

&  +24*PI**2*F12)*A*B**2*H**2)*P*Q*R)  /(A*B**2*H**4*R 

&  **2)  /  72.0 

GJY  =  -(((18*PI**2*B22*A**2*B*H**4-24*PI**2*E22*A**2*B*H 
&  ••2)*Q**2+(  1 8*PI**2*B66*B**3*H**4-24*PI**2*E66*B**3* 

&  H**2)*P**2)*R**2+((24*PI**2*F22*A**2*B*H**2-18*PI**2 

&  •D22*A**2*B*H**4)*Q**2+(9*PI**2*D66*B*'*3*H**4-12*PI 

&  ••2*F66*B**3*H**2)*P**2)*R)  /  (A*B**2*H**4*R**2)  / 

&  72.0 

Else  If  (MOD(M+P,2).NE.O.AND.MOD(N+Q,2).NE.O)  Then 


•  The  following  equations  correspond  to  the  Galerkin 

*  Equations  for  Case  II,  Eqs  72  through  76  ' 


c  ••  corresponding  to  Eq  (72) 
c 

AUO  =  ((24*PI*B16*A*B**2*H**2-32*PI*E16*A*B**2)*M**2*N* 
&  Q*R*‘2+(24*PI*F16*A*B**2-18*PI*D16*A*B**2*H**2)*M** 

&  2*N*Q*R)  /  (((3*PI*A*B**2*H**2*P**2-3*PrA*B**2*H**2 

&  •M**2)*Q**2-3*PI*A*B**2*H**2*N**2*P**2+3*PI*A*B**2*H 

&  ••2*M**2*N**2)*R**2) 

BUG  =  (((12*PI*B26*A**2*B*H**2-16*PI*E26*A**2*B)*M*N**2+ 
&  (12*PI*B16*B**3*H**2-16*PI*E16*B**3)*M**3)*Q*R**2+( 

&  24*PI*F26*A**2*B-18*PI*D26*A**2*B*H**2)*M*N**2*Q*R+( 

&  6*PI*E26*A**2*B*H**2-8*PI*G26*A**2*B)*M*N**2*Q)  /  (( 
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&  (3*PI*A*B**2*H**2*P**2-3*PI*A*B**2*H**2*M*'»2)*Q**2-3 

&  •PI*A*B**2*H**2*N**2*P**2+3*PI*A*B**2*H»*2*M**2*N**2 

&  )*R**2) 

CUO  =  ((-16*PI**2*E26*A**2*M*N**3-48*PI**2*E16*B**2*M**3 
&  *N)*Q*R**2+(24*PI**2'»F26*A**2*M*N**3+(24*PI**2*F16*B 

&  ••2*M**3-I2*A26*A**2*B**2*H**2*M)*N)*Q*R+(6*B26*A**2 

&  •B**2*H**2*M*N-8*PI**2*G26*A**2*M*N**3)*Q)  /  (((3*PI 

&  *A*B**2*H**2*P**2-3*PI*A*B**2*H**2*M**2)*Q**2-3*PI*A 

&  •B**2*H**2*N**2*P**2+3*PI*A*B**2*H**2*M**2*N**2)*R** 

&  2) 

EUO  =  (24*PI*A16*A*B**2*H**2*M**2*N*Q*R**2-12*PI*B16*A*B 
&  •*2*H**2*M**2*N*Q*R)  /  (((3*PI*A*B**2*H**2*P**2-3*PI 

&  *A*B**2*H**2*M**2)*Q**2-3*PI*A*B**2*H**2*N**2*P**2+3 

&  •PI*A*B**2*H**2*M**2*N**2)*R**2) 

GUO  =  ((12*PI*A26*A**2*B*H**2*M*N**2+12*PI*A16*B**3*H**2 
&  *M**3)*Q*R**2+(6*PI*B16*B**3*H**2*M**3-6*PI*B26*A**2 

&  •B*H**2*M*N**2)*Q*R)  /  (((3*PI*A*B**2*H**2*P**2-3*PI 

&  •A*B**2*H**2*M**2)*Q**2-3*PI*A*B**2*H**2*N**2*P**2+3 

&  •P1*A*B**2*H**2*M**2*N**2)*R**2) 

c 

c  ••  corresponding  to  Eq  (73)  *• 
c 

AVO  =  (((12*PI*B26*A**3*H**2-16*PI*E26*A**3)*N**3+(12*PI 
&  •B16*A*B**2*H**2-16*PI*E16*A*B**2)*M**2*N)*P*R**2+(( 

&  16*PI*F26*A**3-12*PI*D26*A**3*H**2)*N**3+(6*PI*D16*A 

&  •B**2*H**2-8*PI*F16*A*B**2)*M**2*N)*P*R)  /(((3*PI*A 

&  ••2*B*H**2*P**2-3*PI*A**2*B*H**2*M**2)*Q**2-3*PI*A** 

&  2*B*H**2*N**2*P**2+3*PI*A**2*B*H**2*M**2*N**2)*R**2) 

BVO  =  ((24*PI*B26*A**2*B*H**2-32*PI*E26*A**2*B)*M*N**2*P 
&  •R**2+(8*PI*F26*A**2*B-6*PI*D26*A**2*B*H**2)*M*N**2* 

&  P*R+(8*PI*G26*A**2*B-6*PI*E26*A**2*B*H**2)*M*N**2*P) 

&  /  (((3*PI*A**2*B*H**2*P**2-3*PI*A**2*B*H**2*M**2)*Q 

&  ♦•2-3*PI*A**2*B*H**2*N**2*P**2+3*PI*A**2*B*H**2*M**2 

&  *N**2)*R**2) 

CVO  =  ((-48*PI**2*E26*A**2*M*N**3-16*PI**2*E16*B**2*M**3 
&  •N)*P*R**2+(24*PI**2*F26*A**2*M*N**3+(-8*PI**2*F16*B 

&  ••2*M**3-12*A26*A**2*B”2*H**2*M)*N)*P*R+(8*PI**2* 

&  G26*A**2*M*N**3-6*B26*A**2*B**2*H**2*M*N)*P)  /(((3* 

&  PI*A**2*B*H**2*P**2-3*PI*A**2*B*H**2*M**2)*Q**2-3*PI 

&  •A**2*B*H**2*N**2*P**2+3*PI*A**2*B*H**2*M**2*N**2)*R 

&  ••2) 

EVO  =  ((12*PI*A26*A**3*H**2*N**3+12*PI*A16*A*B**2*H**2*M 
&  ••2*N)*P*R**2+(6*PI*B16*A*B**2*H**2*M**2*N-6*PI*B26* 
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&  A**3*H**2*N**3)*P*R)  /  (((3*PI*A**2*B*H**2*P**2-3*PI 

&  •A**2*B*H**2*M**2)*Q**2-3*PI*A**2*B*H**2*N**2*P**2+3 

&  *PI*A**2*B*H**2*M**2*N**2)*R**2) 

GVO  =  (24*PI*A26*A**2*B*H**2*M*N**2*P*R**2+12*PI*B26*A** 
&  2*B*H**2*M*N**2*P*R)  /  (((3*PI*A**2*B*H**2*P**2-3*PI 

&  •A**2*B*H**2*M**2)*Q**2-3»PI*A**2*B*H**2*N**2*P**2+3 

&  *PI*A**2*B*H**2*M**2*N**2)*R**2) 

c 

c  •*  corresponding  to  Eq  (74)  *• 
c 

AWl  =  -((48*PI**2*F26*A**3*H**2-64*PI**2*H26*A**3)*N**3+ 

&  ((144*PI**2*FI6*A*B**2*H**2-192*PI**2*H16*A*B**2)*M 

&  •*2-36*A45*A**3*B**2*H**4+288*D45*A**3*B**2*H**2-576 

&  *F45*A**3*B**2)*N)  •  P  *  Q  /  ((9*PI*A**2*B**2*H**4*P 

&  ••2-9*PI*A**2*B*»2*H**4*M**2)*Q**2-9*PI*A**2*B**2*H 

&  ••4*N**2*P**2+9*PI*A**2*B**2*H**4*M**2*N**2) 

AW2  =  -(((128*PI**2*I26*A**3-96*PI**2*G26*A**3*H**2)*N** 

&  3+((128*PI**2*Il6*A*B**2-%*PI**2*G16*A*B**2*H**2)*M 

&  ••2+36*B26*A**3*B**2*H**4-48*E26*A**3*B**2*H**2)*N)* 

&  P*Q*R+((48*PI**2*H26*A**3*H**2-64*PI**2*J26*A**3)*N 

&  ••3+(48*F26*A**3*B**2*H**2-36*D26*A**3*B**2*H**4)*N) 

&  ’P^Q)  /  (((9*PI*A**2*B**2*H**4*P**2-9*PI*A**2*B**2*H 

&  ••4*M**2)*Q**2-9*PI*A**2*B**2*H**4*N**2*P**2+9*PI*A 

&  ••2*B**2*H**4*M**2*N**2)*R**2) 

AW  =  AWl  +  AW2 

BWl  =  -((144*PI**2*F26*A**2*B*H**2-192*PI**2*H26*A**2*B) 

&  •M*N**2+(48*PI**2*F16*B**3*H**2-64*PI**2*H16*B**3)*M 

&  ••3+(-36*A45*A**2*B**3*H**4+288*D45*A**2*B**3*H**2- 

&  576*F45*A**2*B**3)*M)  *  P  •  Q  /  ((9*PI*A**2*B**2*H** 

&  4*P**2-9*PI*A**2*B**2*H**4*M**2)*Q**2-9*PI*A**2*B**2 

&  •H**4*N**2*P**2+9*PI*A**2*B**2*H**4*M**2*N**2) 

BW2=-{((256*PI**2*I26*A**2*B-192*PI**2*G26*A**2*B*H**2) 

&  •M*N**2+(36*B26*A**2*B**3*H**4-48*E26*A**2*B**3*H**2 

&  )*M)*P*Q*R+(48*PI**2*H26*A**2*B*H**2-64*PI**2*J26*A 

&  ••2*B)*M*N**2*P*Q)  /  (((9*PI*A**2*B**2*H**4*P**2-9* 

&  PI*A**2*B**2*H**4*M**2)*Q**2-9*PI*A**2*B**2*H**4*N** 

&  2*P*^2+9*PI*A**2*B**2*H**4*M**2*N**2)*R**2) 

BW  =  BWl  +  BW2 

cw  =  -((((-72*PI*A45*A**2*B**2*H**4+576*PI*D45*A**2*B**2 
&  •H**2-l  152*PI*F45*A**2*B**2)*M-256*PI**3*H16*B**2*M 

&  ••3)*N-256*PI**3*H26*A**2*M*N**3)*P*Q*R**2+(384*PI** 

&  3*I26*A**2*M*N**3+(128*PI**3*I16*B**2*M**3-192*PI* 

&  E26*A**2*B**2*H**2*M)*N)*P*Q*R+(96*PI*F26*A**2*B**2* 
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& 

& 

& 

& 

& 

& 

& 

& 

& 
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H**2*M*N-128*Pr*3*J26*A**2*M*N**3)*P*Q)  /  (((9*PI*A 
♦•2*B**2*H**4*P**2-9*PI*A**2*B**2*H**4*M**2)*Q**2-9* 
PI*A**2*B**2*H**4*N**2*P**2+9*PI*A**2*B**2*H**4*M**2 
*N**2)*R**2) 

EW  =  -((48*PI**2*E26*A**3*H**2*N**3+144*PI**2*E16*A*B**2 
*H*^2*M**2*N)*P*Q*R**2+((36*A26*A**3*B**2*H**4-72*PI 
•♦2*F16*A*B**2*H**2*M**2)*N-72*PI**2*F26*A**3*H**2*N 
**3)*P*Q*R+(24*PI**2*G26*A**3*H**2*N**3-18*B26*A**3* 
B**2*H**4*N)*P*Q)  /  (((9*PI*A**2*B**2*H**4*P**2-9*PI 
*A**2*B**2*H**4*M**2)*Q**2-9»PI*A**2*B**2*H**4*N**2* 
P**2+9*PI*A**2*B**2*H**4*M**2*N**2)*R**2) 

GW  =  -((144*PI**2*E26*A**2*B*H**2-*M*N**2+48*PI**2*E16*B 
**3*H**2*M**3)*P*Q*R**2+(-72‘PI**2*F26*A**2*B*H**2*M 
•N**2+24*PI**2*F16*B**3*H**2*M'»*3+36*A26*A**2*B**3*H 
•*4*M)*P*Q*R+(18*B26*A**2*B**3*H**4*M-24*PI**2*G26*A 
•*2*B*H**2*M*N**2)*P*Q)  /  (((9*PI*A**2*B**2*H**4*P** 
2-9*PI*A**2*B**2*H**4*M**2)*Q**2-9*PI*A**2*B**2*H**4 
•N**2*P**2+9*PI*A**2*B**2*H**4*M**2*N**2)*R**2) 

••  corresponding  to  Eq  (75)  ** 

AJX  =  ((72*PI**2*D16*A*B**2*H**4-192*PI**2*F16*A*B**2*H** 
2+128*PI**2*H16*A*B**2)*M**2*N*Q*R**2+(-72*PI**2*El 
6*AB**2*H**4+192*PI**2*G16*A*B**2*H**2-128*PI**2*I1 
6*A*B**2)*M**2*N*Q*R)/(((9*PI**2*A*B**2*H**4*P**2-9 
*PI**2*A*B**2*H**4*M**2)*Q**2-9*PI**2*A*B**2*H**4*N 
••2*P**2+9*PI**2*A*B**2'H*M*M**2*N**2)*R**2) 

BJXl  =  ((36*PI**2*D26*A**2*B*H**4-96*PI**2*F26*A**2*B*H 
•*2+64*PI**2*H26*A**2*B)*M*N**2+(36*PI**2*D16*B**3*H 
••4-96*PI**2*F16*B**3*H**2+64*PI**2*H16*B**3)*M**3+( 
36*A45*A**2*B**3*H**4-288*D45*A**2*B**3*H**2+  576*F45 
•A**2*B**3)*M)  •  Q  /  ((9*PI**2*A*B**2*H*M*P**2-9*PI 
••2*A*B**2*H**4*M**2)*Q**2-9*PI**2*A*B**2*H**4*N**2* 
P**2+9*PI**2*A*B**2*H*M*M**2*N**2) 

BJX2  =  ((-72*PI**2*E26*A**2*B*H**4+192*PI**2*G26*A**2*B* 
H**2-128*Pr*2*I26*A**2*B)*M*N**2*Q*R+(36*Pl**2*F26* 
A**2*B*H**4-96*PI**2*H26*A**2*B*H**2+64*PI**2*J26*A 
••2*B)*M*N**2*Q)  /  (((9*PI**2*A*B**2*H**4»P**2-9*PI 
••2*A*B**2*H**4*M**2)*Q**2-9*PI**2*A*B**2*H**4*N**2* 
P**2+9*PI**2*A*B^*2*H**4*M**2*N**2)*R**2) 

BJX  =  BJXl  +  BJX2 

CJXl  =  ((64*PI**3*H26*A**2-48*Pr*3*F26»A**2*H**2)*M*N** 
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&  3+((192*PI**3*H16*B**2-144*PI**3*FI6*B**2*H**2)*M**3 

&  +(36*PI*A45*A**2*B**2*H**4-288*PI*D45*A**2*B**2*H**2 

&  +576*PI*F45* A**2*B**2)*M)*N)  *  Q  /  ((9*PI**2*A*B**2» 

&  H**4*P**2-9*PI**2*A*B**2*H**4*M**2)*Q**2-9*PI**2*A*B 

&  •*2*H**4*N**2*P**2+9*PI**2*A*B**2*H**4*M**2*N**2) 

CJX2  =  (((96*PI**3*G26*A**2*H**2-128*PI**3*I26*A**2)*M* 

&  N**3+((96*PI**3*G16*B**2*H**2-128*PI**3*I16*B**2)*M 

&  **3+(48*PI*E26*A**2'»B**2*H**2-36*PI*B26*A**2*B**2*H 

&  **4)*M)*N)*Q*R+((64*PI**3*J26*A**2-48*PI**3*H26*A**2 

&  *H**2)*M*N**3+(36*PI*D26*A**2*B**2'»H**4-48*PI*F26*A 

&  ••2*B**2*H**2)*M*N)*Q)  /  (((9*PI**2*A*B**2*H**4*P**2 

&  -9*PI**2*A*B**2*H**4*M**2)*Q**2-9*PI**2*A*B**2*H**4* 

&  N**2*P**2+9*PI**2*A*B**2*H**4*M**2*N**2)*R**2) 

CJX  =  CJXl  +  CJX2 

EJX  =  ((72*PI**2*B16*A*B**2*H**4-%*PI*'»2*E16*A*B**2*H** 

&  2)*M**2*N*Q*R**2+(72*PI**2*F16*A*B**2*H**2-54*PI**2* 

&  D16*A*B**2*H**4)*M**2*N*Q*R)  /  (((9*PI**2*A*B**2*H** 

&  4*P**2-9*PI**2*A*B**2*H**4*M**2)*Q**2-9*PI**2*A*B**2 

&  •H**4*N**2*P**2+9*PI**2*A*B**2*H**4*M**2*N**2)*R**2) 

GJX  =  (((36*PI**2*B26*A**2*B*H**4^*PI**2*E26*A**2*B*H 
&  ••2)*M*N**2+(36*PI**2*B16*B**3*H**4-48*PI**2*E16*B** 

&  3*H**2)*M**3)*Q*R**2+((48*PI**2*F26*A**2*B*H**2-36* 

&  PI**2*D26*A**2*B*H**4)*M*N**2+(18*PI**2*D16*B**3*H** 

&  4.24*PI**2*Fl6*B**3*H**2rM**3)*Q*R)  /  (((9*PI**2*A* 

&  B**2*H**4*P**2-9*PI**2*A*B**2*H**4*M**2)*Q**2-9*PI** 

&  2*A*B**2*H**4*N**2*P**2+9*PI**2*A*B**2*H**4*M**2*N** 

&  2)*R’*2) 

c 

c  ••  corresponding  to  Eq  (76) 
c 

AJYl  =  ((36*PI**2*D26*A**3*H**4-96*PI**2*F26*A**3*H**2+ 

&  64*PI**2*H26*A**3)*N**3+((36*PI**2*D16*A*B**2*H**4- 

&  96*PI**2*F16*A*B**2*H**2+64*PI**2*H16*A*B**2)*M**2+ 

&  36*A45*A**3*B**2*H**4-288*D45*A**3*B**2*H**2+576*F45 

&  •A**3*B**2)*N)  •  P  /  ((9*PI**2*A**2*B*H**4*P**2-9*PI 

&  **2*A**2*B*H**4*M**2)*Q**2-9*PI**2*A**2*B*H**4*N**2* 

&  P**2+9*PI**2*A**2*B*H**4*M**2*N**2) 

AJY2  =  ((-72*PI**2*E26*A**3*H**4+192*PI**2*G26*A**3*H**2 
&  -128*PI**2*I26*A**3)*N**3*P*R+(36*PI**2*F26*A**3*H** 

&  4-96*PI**2*H26*A**3*H»*2+64»PI**2*J26*A**3)*N**3*P) 

&  /  (((9*Pr*2*A**2*B*H**4*P»*2-9*PI**2*A**2*B*H**4*M 

&  •*2)*Q**2-9*PI**2*A**2*B*H**4*N**2*P**2+9*PI**2*A**2 

&  *B*H**4*M**2*N**2)*R**2) 
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AJY  =  AJYl  +  AJY2 

BJY  =  ((72*PI**2*D26*A**2*B*H**4-192*PI**2*F26*A**2*B*H 
&  ••2+128*PI**2*H26*A**2*B)*M*N**2*P*R**2+(-72*PI**2* 

&  E26*A**2*B*H**4+192*PI**2*G26*A**2*B*H**2-128*PI**2* 

&  I26*A**2*B)*M*N**2*P*R)  /  (((9*PI**2*A**2*B*H**4*P** 

&  2-9*PI**2*A**2*B*H**4*M**2)*Q**2-9*PI**2*A**2*B*H**4 

&  *N**2*P**2+9*PI**2*A**2*B*H**4*M**2*N**2)*R**2) 

CJYl  =  ((192*PI**3*H26*A**2-144*PI**3*F26*A**2*H**2)*M*N 
&  **3+((64*PI**3*H16*B**2-48*PI**3*F16*B**2*H**2)*M**3 

&  +(36*PI*A45*A**2*B**2*H**4-288*PI*D45*A**2*B**2*H**2 

&  +576*PI*F45*A**2*B**2)*M)*N)  •  P  /  ((9*PI**2*A**2*B* 

&  H**4*P**2-9*PI**2*A*»2*B*H**4*M**2)*Q**2-9*PI**2*A** 

&  2*B*H**4*N**2*P**2+9*PI**2*A**2*B*H*M*M**2*N**2) 

CJY2  =  (((192*PI**3*G26*A**2*H**2-256*PI**3*I26*A**2)*M* 

&  N**3+(48*PI*E26*A**2*B**2*H**2-36*PI*B26*A**2*B**2*H 

&  ••4)*M*N)*P*R+(64*PI**3*J26*A**2-48*PI**3*H26*A**2*H 

&  ••2)*M*N**3*P)  /  (((9*PI**2*A**2*B*H**4*P**2-9*PI**2 

&  *A**2*B*H**4*M**2)*Q**2-9*PI**2*A**2*B*H*M*N**2*P** 

&  2+9*PI**2*A**2*B*H**4*M**2*N**2)*R**2) 

CJY  =  CJYl  +  CJY2 

EJY  =  (((36*PI**2*B26*A**3*H**4-48*Pr*2*E26*A**3*H**2)* 

&  N**3+(36*PI**2*B16*A*B**2*H**4-48*PI**2*E16*A*B**2*H 

&  ••2)*M**2*N)*P*R**2+(72*PI**2*F26*A**3*H**2-54*PI**2 

&  *D26*A**3*H**4)*N**3*P*R+(l8*PI**2*E26*A**3*H**4-24* 

&  PI**2*G26*A**3*H**2)*N**3*P)  /  (((9*PI**2*A**2*B*H** 

&  4*P**2.9*PI**2*A**2*B*H**4*M**2)*Q**2-9*PI**2*A**2*B 

&  •H**4*N**2*P**2+9*PI**2*A**2*B*H*M*M**2*N**2rR**2) 

GJY  =  ((72*PI**2*B26*A**2*B*H**4-96»Pr*2*E26*A**2*B*H** 

&  2)*M*N**2*P*R**2+(24*PI**2*F26*A**2*B*H**2-18*PI**2* 

&  D26*A**2*B*H**4)*M*N**2*P*R+(24*PI**2*G26*A**2*B*H** 

&  2-18*PI**2*E26*A**2*B*H**4)*M*N**2*P)  /(((9*PI**2*A 

&  ••2*B*H**4*P**2-9*PI**2*A**2*B*H**4*M**2)*Q**2-9*PI 

&  ••2*A**2*B*H**4*N**2*P**2+9*PI**2*A**2*B*H**4*M**2*N 

&  ••2)*R**2) 

c 

Else 

c 

c 

AUO  =  0.0 
BUG  =  0.0 
CUO  =  0.0 
EUO  =  0.0 
GUO  =  0.0 
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AVO  =  0.0 
BVO  =  0.0 
CVO  =  0.0 
EVO  =  0.0 
GVO  =  0.0 
AW  =  0.0 
BW  =  0.0 
CW  =  0.0 
EW  =  0.0 
GW  =  0.0 
AJX  =  0.0 
BJX  =  0.0 
CJX  =  0.0 
EJX  =  0.0 
GJX  =  0.0 
AJY  =  0.0 
BJY  =  0.0 
CJY  =  0.0 
EJY  =  0.0 
GJY  =  0.0 
End  If 
c 
C 

c  STORE  THESE  TERMS  IN  THE  STIFFNESS  MATRIX 

c - 

STIFFa  J)  =  Al 

STIFF(U+MN^  ‘NMAX)  =  BUO 
STIFF(U+2*  ,K*NMAX)  =  CUO 
STIFFa4+3  \X*NMAX)  =  EUO 

STIFF(U+4*MMAX*NMAX)  =  GUO 
STIFF(I+MMAX*NMAX,J)  =  AVO 
STIFF(I+MMAX*NMAX,J+MMAX*NMAX)  =  BVO 
STIFFa+MMAX*NMAX.J+2*MMAX*NMAX)  =  CVO 
STIFFa+MMAX*NMAX,J+3*MMAX*NMAX)  =  EVO 
STIFF(I+MMAX*NMAX,J+4*MMAX*NMAX)  =  GVO 
STIFF(I+2*MMAX*NMAXJ)  =  AW 
STIFF(I+2*MMAX*NMAXJ+MMAX*NMAX)  =  BW 
STIFF(I+2*MMAX*NMAXJ+2*MMAX*NMAX)  =  CW 
STIFF(I+2*MMAX*NMAXJ+3*MMAX*NMAX)  =  EW 
STIFF(I+2*MMAX*NMAXJ+4*MMAX*NMAX)  =  GW 
STIFF(I+3*MMAX*NMAXJ)  =  AJX 
STIFF(I-r3*MMAX*NMAXJ+MMAX*NMAX)  =  BJX 
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STIFF(I+3*MMAX*NMAXJ+2*MMAX*NMAX)  =  CJX 
STIFF(I+3*MMAX*NMAXJ+3*MMAX*NMAX)  =  EJX 
STIFF(I+3*MMAX*NMAX,J+4*MMAX*NMAX)  =  GJX 
STIFF(I+4*MMAX*NMAX,J)  =  AJY 
STIFF(I+4*MMAX*NMAXJ+MMAX*NMAX)  =  BJY 
STIFF(I+4*MMAX*NMAX,J+2*MMAX*NMAX)  =  CJY 
STIFF(I+4*MMAX*NMAX,J+3*MMAX*NMAX)  =  EJY 
STIFF(I+4*MMAX*NMAX,J+4*MMAX*NMAX)  =  GPf 

C  COMPUTE  MASS  MATRIX  ELEMENTS 

c - 

c  FIRST  CALCULATE  THE  MASS  MOMENTS  OF  INERTIA. 

I2BARPR  =  RHO  *  H  **  3  /  (15.0*R) 

I3BARPR  =  RHO  *  H  **  3  /  (60.0*R) 

I5BAR  =  RHO  *  H  **  3  *  4.0  /  315.0 
17  =  RHO  *  H  **  7  /  448.0 
II  =  RHO*  H 

I4BAR  =  RHO  •  H  ••  3  *  17.0  /  315.0 
AUOMASS  =  0.0 
BUOMASS  =  0.0 
CUOMASS  =  0.0 
EUOMASS  =  0.0 
GUOMASS  =  0.0 
AVOMASS  =  0.0 
EVOMASS  =  0.0 
GVOMASS  =  0.0 
EWMASS  =  0.0 
GWMASS  =  0.0 
BJXMASS  =  0.0 
EJXMASS  =  0.0 
GJXMASS  =  0  0 
AJYMASS  =  0.0 
EJYMASS  =  0.0 
GJYMASS  =  0.0 
c 

If(M.EQ.P.AND.N.EQ,Q)Thcn 

c 

If  (NBUCVIB  EQ  1)  Then 

c  VIBRATIONS  PROBLEM  -  WE  ARE  LOOIONG  FOR  THE  NATURAL 
c  FREQUENCIES 
c 

BVOMASS  =  -A  *  B  *  I2BARPR  /  4.0 

CVOM  ASS  =  PI  *  A  *  I3BARPR  *  Q  /  4  0 
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AWMASS  =  PI  *  B  •  I5BAR  *  P  /  4.0 
BWMASS  =  PI  •  A  •  I5BAR  *  Q  /  4.0 

CWMASS  =  -(16*PI**2*A**2*I7*Q**2+16*PI**2*B**2*I7*P**2 
&  +9*A**2*B**2*H**4*I1)  /  (A*B*H**4)  /  36.0 

AJXMASS  =  -A  *  B  *  I4BAR  /  4.0 
CJXMASS  =  PI  *  B  *  I5BAR  *  P  /  4.0 
BJYMASS  =  -A  •  B  •  I4BAR  /  4.0 
CJYMASS  =  PI  *  A  •  I5BAR  *0/4.0 
c 

ELSE 

c 

c  BUCKLING  PROBLEM  -  WE  ARE  LOOKING  FOR  THE  CRITICAL  BUCKLING 
c  LOADS 
c 

BVOMASS  =  0.0 
CVOMASS  =  0.0 
AWMASS  =  0.0 
BWMASS  =  0.0 

CWMASS  =  PI  •*  2  *  B  *  P  ••  2  /  A  /  4.0 
AJXMASS  =  0.0 
CJXMASS  =  0.0 
BJYMASS  =  0.0 
CJYMASS  =  0.0 
c 

End  If 
c 

Else 

c 

BVOMASS  =  0.0 
CVOMASS  =  0.0 
AWMASS  =  0.0 
BWMASS  =  0.0 
CWMASS  =  0.0 
AJXMASS  =  0.0 
CJXMASS  =  0.0 
.  BJYMASS  =  0.0 
CJYMASS  =  0.0 
c 
c 

End  If 

c - 

c  STORE  THESE  TERMS  IN  THE  MASS  MATRIX 
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MASSdJ)  =  AUOMASS 
MASS(I,J+MMAX*NMAX)  =  BUOMASS 
MASS(U+2*MMAX*NMAX)  =  CUOMASS 
MASS(I,J+3*MMAX*NMAX)  =  EUOMASS 
MASS(I,J+4*MMAX*NMAX)  =  GUOMASS 
MASS(I+MMAX*NMAX,J)  =  AVOMASS 
MASS(I+MMAX’‘NMAX.J+MMAX*NMAX)  =  BVOMASS 
MASS(I+MMAX*NMAX,J+2*MMAX*NMAX)  =  CVOMASS 
MASS(I+MMAX*NMAX.J+3*MM  AX*NMAX)  =  EVOMASS 
MASS(I+MMAX*NMAX,J+4*MMAX*NMAX)  =  GVOMASS 
MASS(I+2*MMAX*NMAXd)  =  AWMASS 
MASS(I+2*MMAX*NMAX,J+MMAX*NMAX)  =  BWMASS 
MASS(I+2*MMAX*NMAX,J+2*MMAX*NMAX)  =  CWMASS 
MASS(I+2*MMAX*NMAX,J+3*MMAX*NMAX)  =  EWMASS 
MASS(I+2*MMAX*NMAX,J+4*MMAX*NMAX)  =  GWMASS 
MASS(I+3*MMAX*NMAX,J)  =  AJXMASS 
MASS(I+3*MMAX*NMAX,J+MMAX*NMAX)  =  BJXMASS 
MASS(I+3*MMAX*NMAX,J+2*MMAX*NMAX)  =  CJXMASS 
MASS(I+3*MMAX*NMAX,J+3*MMAX*NMAX)  =  EJXMASS 
MASSa+3*MMAX*NMAX,J+4*MMAX*NMAX)  =  GJXMASS 
MASS(I+4*MMAX*NMAXJ)  =  AJYMASS 
MASS(I+4*MMAX*NMAXd+MMAX*NMAX)  =  BA^MASS 
MASS(I+4*MMAX*NMAX,J+2*MMAX*NMAX)  =  CJYMASS 
MASS(I+4*MMAX*NMAX,J+3*MMAX*NMAX)  =  EJYMASS 
MASS(I+4*MMAX*NMAX,J+4*MMAX*NMAX)  =  GJYMASS 


J  =  J+  1 
20  Continue 
1  =  1+1 
J=  1 
10  Continue 


c  CALL  THE  IMSL  LIBRARY  SUBROUTINE.  USE  THE  MASS  AND  STIFFNESS 
c  MATRICES  AS  INPUT  AND  FIND  THE  EIGENVALUES  AND  EIGENVECTORS. 
Call  DGVCRG(MSIZE.STIFF,MSIZE, MASS, MSIZE,ALPHA.BETA,EVEC,MSIZE) 
Do  401=  LMSIZE 
If(BETA(I).NE.0.0>Then 
EVAL(I)  =  ALPHA(I)  /  BETA(I) 

Else 

EVALd)  =  (1.0D+30,0.0D+00) 

End  If 
40  Continue 

If(NBUCVIB.EQ.l)Then 
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c  PRINT  OUT  THE  FIRST  10  MODES  FOR  THE  VIBRATION  PROBLEM 


Do  501=  1, 10 
REVAL  =  DREAL(EVAL(I)) 

AGEVAL  =  DIMAG(EVAL(I)) 

If  (ABS(AGEVAL).GT.1.0D-15)  Then 
Write  (2, 11 5)  I 

Else  If  (REVAL.GTl.OD+28)  Then 
Write  (2,125)  I 

Else  If  (REVAL.LT.0.0)  Then 
Write  (2,120)1 
Else 

OMEGA  =  SQRT(REVAL) 

Write(2,*)  ’EIGENVALUE  POSITIVE  REAL’ 

Write  (2,130)  I,  REVAL,  OMEGA 
End  If 

50  Continue 
c 

Else 

c 

c  PRINT  OUT  THE  CRITICAL  BUCKLING  LOAD.  THE  CRITICAL 
c  BUCKLING  LOAD  IS  THE  EIGENVALUE  WITH  THE  SMALLEST  ABSOLUTE 
c  VALUE . 

C 

Do  55  I  =  2,  MSIZE 

If  ( ABS(DIM AG(EVAL(M))).GT.  1  .OD- 1 5)  Then 
Goto  55 
End  If 

If(ABS(DREAL(EVAL(I))).GTABS(DREAL(EVAL(I-l))).AND, 

&  ABS(DREAL(EVAL(I-l))).LT.1.0D+28)  Then 
Write  (2,220)  DREAL(EVAL(I-1)) 

End  If 

55  Continue 
c 

End  If 
c 

c  PRINT  OUT  THE  1ST  MODE  OF  THE  DEFLECTION,  W(X,Y),  ALONG  THE 
c  MIDLINES  OF  THE  PANEL:  X  =  A/2  AND  Y  =  B/2 
c 

c  PRINT  OUT  THE  W  EIGENVECTOR.  CMN 
c 

11=  1 

Write  (2,500) 
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Write  (2,510) 

MNWMIN  =  1  +  2  •  MMAX  •  NMAX 
MNWMAX  =  3  *  MMAX  *  NMAX 
Do  400  I  =  MNWMIN,  MNWMAX 
REVEC(II)  =  DREAL(EVECa.l)) 

AGEVEC  =  DIMAG(EVECa.l)) 

If  (ABS( AGEVEC).  GT.  1  .OD- 1 5)  Then 
Write  (2,520)  I,  II,  REVEC(II) 

Else 

Write  (2,530)  I,  II,  REVEC(II) 

End  If 
II  =  II  +  1 
4(X)  Continue 
c 

c  DETERMINE  W(X=A/2,Y) 
c 

ASTEP  =  A  /  50.0 
BSTEP  =  B  /  50.0 
XCOORD  =  A  /  2.0 
YCOORD  =  0.0 
Write  (2,540) 

Write  (2,542) 

801  WMODE  =  0.0 
JJJ=  I 

Do470  M=  1,MMAX 
Do  472  N  =  1,  NMAX 

WMODE  =  WMODE  +  REVEC(JJJ)  •  SIN(M*PI*XCOORD/A)  • 
&  SIN(N*PI*YCOORD/B) 

JJJ  =  JJJ  +  1 
472  Continue 
470  Continue 

Write  (2,550)  YCOORD,  WMODE 
YCOORD  =  YCOORD  +  BSTEP 
If  (YCOORD. GT.B)  Then 
Goto  800 
Else 

Goto  801 
End  If 
c 

800  YCOORD  =  B  /  2  0 
c 

c  DETERMINE  W(X,  Y=B/2) 
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XCOORD  =  0.0 
Write  (2,560) 

Write  (2,570) 

810WMODE  =  0.0 
JJJ  =  1 

Do480M=  1,MMAX 
Do482N  =  1,NMAX 

WMODE  =  WMODE  +  REVEC(JJJ)  *  SIN(M*PI*XCOORD/A)  * 
&  SIN(N*PrYCOORD/B) 

JJJ  =  JJJ  +  1 
482  Continue 
480  Continue 

Write  (2,550)  XCOORD,  WMODE 
XCOORD  =  XCOORD  +  ASTEP 
If  (XCOORD.GT.  A)  Then 
Goto  850 
Else 

Goto  810 
End  If 


115  Format  (/,8X,I3,1 1X,’EIGENVALUE  IS  COMPLEX’) 

120  Format  (/,9X,I3,1 1X,’EIGEN VALUE  IS  NEGATIVE’) 

125  Format  (/,9X,I3,11X,’EIGENVALUE  IS  INFINITE’) 

130  Format  (/,9X,I3,10X,D20.13,12X,D20.13) 

200  Format  (/,8X,I3,10X,D20.13) 

220  Format  (//,5X, ’CRITICAL  BUCKLING  LOAD  =  ’,IX,D20.13) 
500  Format  (//,5X,’W  EIGENVECTOR,  CMN,  FOR  1ST  MODE’) 
510  Format  (//,5X,’M,  N’,10X,’CMN’) 

520  Format  (/,5X,I4,2X,I4,12X,D20.13,3X,’COMPLEX’) 

530  Format  (/,5X,I4,2X,I4,12X,D20.13) 

540  Format  (//,5X,’DEFLECTION,  W(X=A/2,Y)’) 

542  Format  (//,5X,’Y(IN.)’,10X,’W(A^,YKIN.)’) 

550  Format  (/,5X,F6.2,11X,E15.8) 

560  Format  (//,5X,’DEFLECTION,  W(X,Y=B/2)’) 

570  Format  (//,5X,’X(IN.)’,10X,’W(X,  B/2)(IN.)’) 

850  Return 
End 
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The  following  is  the  subroutine  GALERK  for  the  clamped 
boundary  condition. 


Subroutine  GALERK(PI,R,H,A,B.A1 1,AI2,A22.A16,A26,A66,A44,A45,A55, 

&  D1 1,D12,D22,D16,D26,D66,D44,D45,D55,F11,F12,F22.F16,F26,F66,F44, 

&  F45,F55,H11,H12,H22,H16,H26,H66,J11,J12422.J16,J26,J66,B11,B12, 

&  B22,B16,B26,B66,E11,E12,E22,E16,E26,E66,G11,G12.G22,G16,G26,G66, 

&  II  1,I12,I22,I16,I26,I66,NBUCVIB,MMAX,MSIZE,RH0,STIFF.MASS,BETA, 
&  ALPHA, EVAL,EVEC,MSIZESQ,REVEC) 


c  THIS  SUBROUTINE  GENERATES  THE  GALERKIN  EQUATIONS  AND  FORMS 
c  THE  MASS  AND  STIFFNESS  MATRICES.  THEN  IT  CALLS  DGVCRG,  AN 
c  IMSL  SUBROUTINE  WHICH  SOLVES  THE  EIGENVALUE  PROBLEM: 
c 

c  [STIFF]{X}  =  (OMEGA^2  OR  N1BAR)[MASS]{X} 

Double  Precision  PI,R,H,A,B,All,A12,A22,A16,A26,A66,A44.A45,A55, 

&  D 1 1  ,D  1 2,D22,D  1 6,D26,D66,D44,D45,D55,F  1 1  ,F  12,F22,F  1 6,F26,F66,F44, 

&  F45,F55,H11,H12,H22,H16,H26,H66,J11,J12J22,J16,J26,J66,B11,B12, 

&  B22,B16,B26,B66,E11,E12,E22,E16,E26,E66,G11,G12,G22,G16,G26,G66, 

&  1 1 1 ,1 1 2,122,1 1 6,I26,I66,STIFF(MSIZE,MSIZE),MASS(MSIZE,MSIZE), 

&  AUO,BUO,CUO,EUO,GUO,AVO,BVO,CVO,EVO,GVO,AW,BW,CW,EW,GW.AJX,BJX, 
&  CJX,EJX,GJX,AJY,BJY,CJY,EJY,GJY,AUOMASS,BUOMASS,CUOMASS,EUOMASS, 

&  GUOMASS,AVOMASS,BVOMASS 

Double  Precision  CVOMASS,EVOMASS,GVOMASS.AWMASS,BWMASS,CWMASS, 

&  EWMASS,GWMASS,AJXMASS,BJXMASS,aXMASS,EJXMASS,GJXMASS,AJYMASS, 
&  BJYM ASS.CJYM ASS,EJYM ASS.GA^M ASS,RHO.I2BARPR,I3BARPR,I5BAR,I7,1 1 , 

&  I4BAR 

Integer  P,Q,M,N,MMAX,NMAX 

c  THESE  VARIABLES  NEEDED  FOR  THE  IMSL  EIGENVALUE  SOLVER  . 

Double  Precision  BETA(MSIZE),REVAL,OMEGA,AGEVAL,AGEVEC, 

&  REVEC(MSIZESQ) 

Double  Complex  ALPHA(MSIZE),EVAL(MSIZE),EVEC(MSIZE,MSIZE) 


c  NUMBER  OF  TERMS  IN  THE  ADMISSIBLE  FUNCTIONS 
NMAX  =  MMAX 

c  GENERATE  GALERKIN  EQUATIONS 
1  =  1 
J  =  1 

Do  10P=  1,MMAX 
Do  10Q=  1,MMAX 
Do20M  =  LMMAX 
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Do20N=  l.MMAX 


c 

c  COMPUTE  STIFFNESS  MATRIX  ELEMENTS 

*««******««««*«**«*«««*********«*«*****»****«***««*«*«**««*»«**** 

*  The  following  equations  correspond  to  the  Galerkin  • 

*  Equations  for  Case  I  • 

*•*««**«***•«**«*«***«•***«***«*****«*•**«*•*«*****«***•****«»•** 

c 

If  (M.EQ.P  AND.N.EQ.Q)  Then 
c 

c  •*  corresponding  to  u^  ** 

c 

AUO  =  0.0 

BUO  =  0.0 

CUO  =  -(((-32*PI**3*E66-16*PI**3*E12)*A**2*P*Q**2-16*PI**3* 

&  El  1*B**2*P**3)*R**2+((32*PI*»3*F66+16*PI**3*F12)*A**2*P*Q** 

&  2-12*PI*A12*A**2*B**2*H**2*P)*R-8*PI**3*G66*A**2*P*Q**2)/(A 

&  **2*B*H**2*R**2)/48.0 

c 

EUO  =  -((12*PI**2*A66*A**3*H**2*Q**2+12*Pr*2*All*A*B**2*H**2 
&  •P**2)*R**2-12*PI**2*B66*A**3*H**2*Q**2*R+3*PI**2*D66*A**3* 

&  H**2*Q**2)/(A**2*B*H**2*R**2)/48.0 

c 

GUO  =  -((12»PI**2*A66+12*PI**2«A12)*A**2*B*H**2*P*Q*R**2-3*PI 
&  **2*D66*A**2*B*H**2*P*Q)/(A**2*B*H**2*R**2)/48.0 

c 

c  •*  corresponding  to  •* 
c 

AVO  =  0.0 

BVO  =  0.0 
c 

CVO  =  -(((-32*PI**3*E66-16*PI**3*E12)*B**2*P**2*Q-16*PI**3* 

&  E22*A**2*Q**3)*R**2+(16*Pr*3*F22*A**2*Q**3-12*PI*A22*A**2* 

&  B**2*H**2*Q)*R+8*PI**3*G66*B**2*P**2*Qy(A*B**2*H**2*R**2)/ 

&  48.0 

c 

EVO  =  -((12*PI**2*A66+12*PI**2*A12)»A*B**2*H**2*P*Q*R**2-3*PI 
&  ••2*D66*A*B**2*H**2*P*Q)/(A*B**2*H**2*R**2)/48.0 

c 

GVO  =  -((12*PI**2*A22*A**2*B*H**2*Q**2+12*PI**2*A66*B**3*H**2 
&  •P**2)*R**2+12*PI**2*B66*B**3*H**2*P**2*R+3*PI**2*D66*B**3* 
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&  H**2*P**2)/(A*B**2*H**2*R**2)/48.0 


c  **  corresponding  to  w  ** 
c 

AW  =  0.0 

c 

BW  =  0.0 

c 

CWl  =  (-16*PI**4*H22*A**4*Q**4+((-64*PI**4*H66-32*PI**4*H12)* 

&  A**2*B**2*P**2-9*PI**2*A44*A**4*B**2*H**4+72*PI**2*I>44*A**4 

&  *B**2*H**2-144*PI**2*F44*A**4*B**2)*Q**2-16*PI**4*H1 1*B**4* 

&  P**4+((-9*PI**2*A55*A**2*B**4*H**4+72*PI**2*D5S*A**2*B**4*H 

&  ••2-144*PI**2*F55*A**2*B**4)*P**2))/(A**3*B**3*H**4)/36.0 

c 

CW2  =  ((32*PI**4*I22*A**4*Q**4+((64*PI**4*I66+32*PI**4*I12)*A 
&  ••2*B**2*P**2-24*PI**2*E22*A**4*B**2*H**2)*Q**2-24*PI**2* 

&  E12*A**2*B**4*H**2*P**2)*R-16*PI**4*J22*A**4*Q**4+(24*PI**2 

&  •F22*A**4*B**2*H**2-16*PI**4*J66*A**2*B**2*P**2)*Q**2-9*A22 

&  •A**4*B**4*H**4)/(A**3*B**3*H**4*R**2)/36.0 

c 

cw  =  cwi+c:w2 

c 

EW  =  (((24*PI**3*E66+12*PI**3*E12)*A**3*B**2*H**2*P*Q**2+12* 

&  PI**3*E1  l*A*B**4*H**2*P**3)*R**2+((-24*PI**3*F66-12*Pl**3* 

&  F12)*A**3*B**2*H**2*P*Q**2+9*PI*A12*A**3*B**4*H**4*P)*R+6* 

&  PI**3*G66*A**3*B**2*H**2*P*Q**2)/(A**3*B**3*H**4*R**2)/36.0 

c 

GW  =  ((12*PI**3*E22*A**4*B*H**2*Q**3+(24*PI**3*E66+12*PI**3* 

&  E12)*A**2*B**3*H**2*P**2*Q)*R**2+{9*PrA22*A**4*B**3*H**4*Q 

&  -12*PI»*3*F22*A**4*B*H**2*Q**3)*R-6*PI**3*G66*A**2*B**3*H** 

&  2*P**2*Q)/(A**3*B**3*H**4*R**2)/36.0 

c 

c  ••  corresponding  to  T,  ** 
c 

AJX  =  -(((9*PI**2*D66*A**2*H**4-24*PI**2*F66*A**2*H**2+16*PI 
&  •*2*H66*A**2)*Q**2+(9*PI**2*D11*B**2*H**4-24*PI**2*F11*B**2 

&  •H**2+16*PI**2*H1 1*B**2)*P**2+9*A55*A**2*B**2*H**4-72*D55*A 

&  ••2*B**2*H**2+144*F55*A**2*B**2)*R**2+(-18*PI**2*E66*A**2*H 

&  ••4+48*PI**2*G66*A**2*H**2-32*Pl**2*I66*A**2)*Q**2*R+(9*PI 

&  •*2*F66*  A**2*H**4-24*PI**2*H66*A**2*H**2+ 1 6*PI**2*J66*A**2) 

&  •Q**2)/(A*B*H**4*R**2)/36.0 

c 

BJX  =  -(((9*PI**2*D26*A**2*H**4-24*PI**2*F26*A**2*H**2+16*PI 
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&  ••2*H26*A**2)*Q**2+(9*PI**2*D16*B**2*H**4-24*PI**2*F16*B**2 

&  •H**2+16*PI**2*H16*B**2)*P**2+9*A45*A**2*B**2*H**4-72*D45*A 

&  ••2*B**2*H**2+144*F45*A**2*B**2)*R**2+(-18*PI**2*E26*A**2*H 

&  ••4+48*PI**2*G26*A**2*H**2-32*PI**2*I26*A**2)*Q**2*R+(9*PI 

&  •*2*F26*A**2*H**4-24*PI**2*H26*A**2*H**2+16*PI**2*J26*A**2) 

&  *Q**2)/(A*B*H**4*R**2)/36.0 

c 

CJX  =  0.0 
c 

EJX  =  0.0 
c 

GJX  =  0.0 
c 

c  ••  corresponding  to  ** 
c 

AJY  =  -(((9*PI**2*D26*A**2*H**4-24*PI**2*F26*A**2*H**2+16*PI 
&  ••2*H26*A**2)*Q**2+(9*PI**2*D16*B**2*H**4-24*PI**2*F16*B**2 

&  •H**2+16*PI**2*H16*B**2)*P**2+9*A45*A**2*B**2*H**4-72*D45*A 

&  ••2*B**2*H**2+144*F45*A**2*B**2)*R**2+(-18*PI**2*E26*A**2*H 

&  ••4+48*PI**2*G26*A**2*H**2-32*PI**2*I26*A**2)*Q**2*R+(9*PI 

&  ••2*F26*A**2*H**4-24*PI**2*H26*A**2*H**2+16*PI**2*J26*A**2) 

&  •Q**2)/(A*B*H**4*R**2)/36.0 

c 

BJY  =  -(((9*PI**2*D22*A**2*H**4-24*PI**2*F22*A**2*H**2+16*PI 
&  ••2*H22*A»*2)*Q**2+(9*PI**2*D66*B**2*H**4-24*PI**2*F66*B**2 

&  •H**2+16*PI**2*H66*B**2)*P**2+9*A44*A**2*B**2*H**4-72*D44*A 

&  **2*B**2*H**2+144*F44*A**2*B**2)*R**2+(-18*PI**2*E22*A**2*H 

&  ••4+48*PI**2*G22*A**2*H**2-32*PI**2*I22*A**2)*Q**2*R+(9*PI 

&  ••2*F22*A**2*H**4-24*PI**2*H22*A**2*H**2+16*PI**2*J22*A**2) 

<Sc  •Q**2)/(A*B*H**4*R**2)/36.0 
c 
c 

CJY  =  0.0 
c 

EJY  =  0.0 

GJY  =  0.0 
c 

Else  If  (M .  EQ.P.  AND.  MOD(N+Q,2).NE.O)  Then 
c 
c 


*  The  following  equations  correspond  to  the  Galerkin 

•  Equations  for  Case  2  • 
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c  ••  corresponding  to  ** 
c 

AUO  =  ((12*PI*B16*H**2-16*PI*E16)*N*P*Q*R+(12*PI*F16-9*PI*D16 
&  •H**2)*N*P*Q)/((6*H**2*Q**2-6*H**2*N**2)*R) 

c 

BUO  =  (((6*PI*B66+6*PI*B12)*H**2-8*PI*E66-8*PI*E12)*N*P*Q*R+( 
&  (-3*PI*D66-6*PI*D12)*H**2+4*PI*F66+8*PI*F12)*N*P*Q)/((6*H** 

&  2*Q**2-6*H**2*N**2)*R) 

c 

CUO  =  0.0 
c 

EUO  =  0.0 
c 

GUO  =  0.0 
c 
c 

c  ••  corresponding  to  *• 
c 

AVO  =  ({<  PI**2*B26*A**2*H**2-8*PI**2*E26*A**2)*N*Q**2+(6*PI 
&  ••2*Blo*B**2*H**2-8*PI**2*E16*B**2)*N*P**2)*R+(8*PI**2*F26* 

&  A**2-6*PI**2*D26*A**2*H**2)*N*Q**2+(3*PI**2*D16*B**2*H**2-4 

&  •PI**2*F16*B**2)*N*P**2)/((6*P1*A*B'»H**2*Q**2-6*PI*A*B*H**2 

&  •N**2)*R) 

c 

BVO  =  (((6*PI**2*B22*A**2*H**2-8*PI**2*E22*A**2)*N*Q**2+(6*PI 
&  ••2*B66*B**2*H**2-8*PI**2*E66*B**2)*N*P**2)*R+(8*PI**2*F22* 

&  A**2-6*PI**2*D22*A**2*H**2)*N*Q**2+(3*PI**2*D66*B**2*H**2^ 

&  •PI**2*F66*B**2)*N*P**2)/((6*PI*A*B*H**2*Q**2-6*PI*A*B*H*»2 

&  •N**2)*R) 

c 

CVO  =  0.0 
c 

EVO  =  0.0 
c 

GVO  =  0.0 
c 

c  *•  corresponding  to  w  •• 
c 

AWl  =  -(((36*PI**2*F16*B**2*H**2-48*PI**2*Hl6*B**2)*N*P**2+( 

&  12*PI**2*F26*A**2*H**2-16*PI**2*H26*A**2)*N**3+(-9*A45*A**2 

&  •B**2*H*’4+72*D45*A**2*B**2*H**2-144*F45*A**2*B**2)*N)*Q*R 
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&  •*2+((32*PI**2*I16*B**2-24*PI**2*G16*B**2*H**2)*N*P**2+(32* 

&  PI**2*I26*A**2-24*PI**2*G26*A**2*H**2)*N**3+(9*B26*A**2*B** 

&  2*H**4-12*E26*A**2*B**2*H»*2)*N)*Q*R+((12*PI**2*H26*A**2*H 

&  ••2-16*PI**2*J26*A**2)*N**3+(12*F26*A**2*B**2*H**2-9*D26*A 

&  •*2*B**2*H**4)*NrQ) 

AW  =  AW1/((9*A*B**2*H**4*Q**2-9*A*B**2*H**4*N**2)*R**2) 

c 

BWl  =  -(((24*PI**2*F66+12*PI**2*F12)*B**2*H**2+(-32*PI**2*H66 
&  -16*PI**2*H12)*B**2)*N*P**2+(12*PI**2*F22*A**2*H**2-16*PI** 

&  2*H22*A**2)*N**3+(-9*A44*A**2*B**2*H**4+72*D44*A**2*B**2*H 

&  •*2-144*F44*A**2*B**2)*N)*Q*R**2-{((-12*PI**2*G66-12*PI**2* 

&  G12)*B**2*H**2+(16*PI**2*I66+16*PI»»2*I12)*B**2)*N*P**2+(32 

&  •PI**2*I22*A**2-24*PI**2*G22*A**2*H**2)*N**3+(9*B22*A**2*B 

&  **2*H**4-12*E22*A**2*B**2*H**2)*N)*Q*R-((12*PI**2*H22*A**2* 

&  H**2-16*PI**2*J22*A**2)*N**3+(12*F22*A**2*B**2*H**2-9*D22*A 

&  **2*B**2*H**4)*N)*Q 

c 

BW  =  BW1/((9*A*B**2*H**4*Q**2-9*A*B**2*H**4*N**2)*R**2) 

c 

CW  =  0.0 

c 

EW  =  0.0 

c 

GW  =  0.0 

c 

c  ••  corresponding  to  T,  •• 
c 

AJX  =  0.0 

c 

BJX  =  0.0 

CJXl  =  -(((96*PI**2*H16*B**2-72*PI**2*FI6*B**2*H**2)*N*P**2+( 

&  32*PI**2*H26*A**2-24*PI**2*F26*A**2*H**2)*N**3+(18*A45*A**2 

&  •B**2*H**4-144*D45*A**2*B**2*H**2+288*F45*A**2*B**2)*N)*Q*R 

&  •*2+((48*PI**2*G16*B**2*H**2-64*PI**2*I16*B**2)*N*P**2+(48* 

&  PI**2*G26*A**2*H**2-64*PI**2*I26*A**2)*N**3+(24*E26*A**2*B 

&  ••2*H**2-18*B26*A**2*B**2*H**4)*N)*Q*R+((32*PI**2*J26*A**2- 

&  24*PI**2*H26*A^-*2*H**2)*N**3+(18*D26*A**2*B**2*H**4-24*F26* 

8l  A**2*B**2*H**2)*N)*Q) 

CJX  =  CJX1/((18*A*B**2*H**4*Q**2-18*A*B**2*H**4*N**2)*R**2) 

c 

EJX  =  -((36*PI*B16*A*B**2*H**4-48*PI*E16*A*B**2*H**2)*N*P*Q*R 
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&  ••2+(36*PI*F16*A*B**2*H**2-27*PI*D16*A*B**2*H**4)*N*P*Q*R)/ 

&  ((18*A*B**2*H**4*Q**2-18*A*B**2*H**4*N**2)*R**2) 

c 

GJX  =  -(((I8*PI*B16*B**3*H**4.24*PI*E16*B**3*H**2)*P**2+(18* 

&  PI*B26*A**2*B*H**4-24*PI*E26*A**2*B*H**2)*N**2)*Q*R**2+((9* 

&  PI*D16*B**3*H**4-12*PI*F16*B**3*H**2)*P**2+(24*PI*F26*A**2* 

&  B*H**2-18*PI*D26*A**2*B*H**4)*N**2)*Q*R)/((18*A*B**2*H**4*Q 

&  •*2-18*A*B**2*H*M*N**2)*R**2) 

c 

c  •*  corresponding  to  7^** 
c 

AJY  =  0.0 
c 

BA'  =  0.0 
c 

CJYl  =  -(((-48*PI**2*F66-24*PI**2*F12)*B**2*H**2+(64*PI**2* 

&  H66+32*PI**2*H12)*B**2)*N*P**2+(32*PI**2*H22*A**2-24*PI**2* 

&  F22*A**2*H**2)*N**3+(18*A44*A**2*B**2*H**4-144*D44*A**2*B** 

&  2*H**2+288*F44*A**2*B**2)*N)*Q*R**2-(((24*PI**2*G66+24*PI** 

&  2*G12)*B**2*H**2+(-32*PI**2*I66-32*PI**2*I12)*B**2)*N*P**2+ 

&  (48*PI**2*G22*A**2*H**2-64*PI**2*I22*A**2)*N**3+(24*E22*A** 

&  2*B**2*H**2-18*B22*A**2*B**2*H**4)*N)*Q*R-((32*PI**2*J22*A 

&  •*2-24*PI**2*H22*A**2*H**2)*N**3+(18*D22*A**2*B**2*H**4-24* 

&  F22*A**2*B**2*H**2)*NrQ 

c 

CJY  =  CJYl/((18*A*B**2*H**4*Q**2-18*A*B**2*H**4*N**2)*R**2) 
c 

EJY  =  -(((18*PI*B66+I8*PI*B12)*A*B**2*H**4+(-24*PI*E66-24*PI* 

&  E12)*A*B**2*H*«2)*N*P*Q*R**2+((-9*PI*D66-18*PI*D12)*A*B**2* 

&  H**4+(I2*PI*F664-24*PI*F12)*A*B**2*H**2)*N*P*Q*R)/((18*A*B** 

&  2*H**4*Q**2-18*A*B**2*H**4*N**2)*R**2) 

c 

GJY  =  -(((18*PI*B66*B**3*H**4-24*PI*E66*B**3*H**2)*P**2+(18* 

&  PI*B22*A**2*B*H**4-24*PI*E22*A**2*B*H**2)*N**2)*Q*R**2+((9* 

&  PI*D66*B**3*H**4-12*PI*F66*B**3*H**2)*P**2+(24*PI*F22*A**2* 

&  B*H**2-l8*PI*D22*A**2*B*H**4)*N**2rQ*R)/((18*A*B**2*H**4*Q 

&  •*2-18*A*B**2*H**4*N**2)*R**2) 

c 

Else  If  (MOD(M+P,2).NE.O. AND.N.EQ.Q)  Then 


*  The  foJJowing  equations  correspond  to  the  Galerkin 

•  Equations  for  Case  3  * 


174 


««••********•****«*********««**«*****«*«****«««**********««*** ***^ 

c 

c  **  corresponding  to  u„  •* 
c 

AUO  =  (((6*PI*B66*A**2*H**2-8*PI*E66*A**2)*M*Q**2+(8*PI*E11*B 
&  ••2-6*PI*Bl  l*B**2*H**2)*M*P**2+(12*PI*Bi  1*B**2*H**2-16*PI* 

&  E11*B**2)*M**3)*R**2+(12*PI*F66*A**2-9*PI*D66*A**2*H»*2)*M* 

&  Q**2*R+(3*PI*E66*A**2*H**2-4*PI*G66*A**2)*M*Q**2)/((6*A*B*H 

&  •*2*P**2-6*A*B*H**2*M**2)*R**2) 

c 

BUG  =  (((6*PI*B26*A**2*H**2-8*PI*E26*A**2)*M*Q**2+(8*PI*E16*B 
&  **2-6*PI*BI6*B**2*H**2)*M*P**2+(12*PrBI6*B**2*H**2-16*PI* 

&  E16*B**2)*M**3)*R**2+(12*PI*F26*A**2-9*PI*D26*A**2*H**2)*M* 

&  Q**2*R+(3*PI*E26*A**2*H**2-4*PI*G26*A**2)*M*Q*»2)/((6*A*B*H 

&  **2*P**2-6*A*B*H**2*M**2)*R**2) 

c 

CUO  =  0.0 
c 

EUO  =  0.0 
c 

GUO  =  0.0 
c 

c  ••  corresponding  to  *• 
c 

AVO  =  (((6*PI*B66+6*PI*B12)*H**2-8*PI*E66-8*PI*E12)*M*P*Q*R** 

&  2+(4*PI*F66-3*PI*D66*H**2)*M*P*Q*R+(4*PI*G66-3*PI*E66*H**2) 

&  •M*P*Q)/((6*H**2*P**2-6*H**2*M**2)*R*'*2) 

c 

BVO  =  ((12*PI*B26*H**2-16*PI*E26)*M*P*Q*R**2+(4*PI*F26-3*PI* 

&  D26*H**2)*M*P*Q*R+(4*PI*G26-3*PI*E26*H**2)*M*P*Q)/((6*H**2* 

&  P**2-6*H**2*M**2)*R**2) 

c 

CVO  =  0.0 
c 

EVO  =  0.0 
c 

GVO  =  0.0 
c 

c  *•  corresponding  to  w  •• 
c 

AW  =  -((((24*PI**2*F66+12*PI**2*F12)*A**2*H**2+(-32*PI**2*H66 
&  -16*PI**2*H12)*A**2)*M*P*Q**2+((12*PI**2*F1  1*B**2*H**2-16* 

&  PI**2*Hll*B**2)*M**3+(-9*A55*A**2*B**2*H**4+72*D55*A**2*B** 
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&  2*H**2-144*F55*A**2*B**2)*M)*P)*R**2+(((-36*PI**2*G66-12*PI 

&  •*2*G12)*A**2*H**2+(48*PI**2*I66+16*PI**2*I12)*A**2)*M*P*Q 

&  •*2+(9*B12*A**2*B**2*H**4-12*E12*A**2*B**2*H**2)*M*P)*R+(12 

&  *PI**2*H66*A**2*H**2-16*PI**2*J66*A**2)*M*P*Q**2)/((9*A**2* 

&  B*H**4*P**2-9*A**2*B*H**4*M**2)*R**2) 

c 

BW  =  -(((36*PI**2*F26*A**2*H**2-48*PI**2*H26*A**2)*M*P*Q**2+( 

&  (12*PI**2*F16*B**2*H**2-16*PI**2*H16*B**2)*M»*3+(-9*A45*A** 

&  2*B**2*H**4+72*D45*A**2*B**2*H**2-144*F45*A**2*B**2)*M)*P)* 

&  R**2+((64*PI**2*I26*A**2-48*PI**2*G26*A**2*H**2)*M*P*Q**2+( 

&  9*B26*A**2*B**2*H**4-12*E26*A**2*B**2*H**2)*M*P)*R+(12*PI** 

&  2*H26*A**2*H**2-16*PI**2*J26*A**2)*M*P*Q**2)/((9*A**2*B*H** 

&  4*P**2-9*A**2*B*H**4*M**2)*R*»2) 

c 

CW  =  0.0 
c 

GW  =  0.0 
c 

EW  =  0.0 
c 

c  ••  corresponding  to  7,  ** 

c 

AJX  =  0.0 
c 

BJX  =  0.0 
c 

CJX  =  -((((-48*PI**2‘F66-24*PI**2*F12)*A**2*H**2+(64*PI**2* 

&  H66+32*PI**2*H12)*A**2)*M*P*Q**2+((32*Pr*2*Hl  1*B**2-24*PI 

&  ••2*F1  1*B**2*H**2)*M**3+(18*A55*A**2*B**2*H**4-144*D55*A**2 

&  •B**2*H**2+288*F55*A**2*B**2)*M)*P)*R**2+(((72*PI**2*G66+24 

&  *PI**2*G12)*A**2*H**2+(-96*PI**2*I66-32*PI**2*I12)*A**2)»M* 

&  P*Q**2+(24*E12*A**2*B**2*H**2-18*B12*A**2*B**2*H**4)*M*P)*R 

&  +(32*PI**2*J66*A**2-24*PI**2*H66*A**2*H**2)*M*P*Q»*2)/((18* 

&  A**2*B*H**4*P**2-18*A**2*B*H**4*M**2)*R**2) 

c 

EJX  =  -(((18*PI*B66*A**3*H**4-24*PI*E66*A**3*H**2)*P*Q**2+(18 
&  •PPBl  1*A*B**2*H**4-24*PI*E1  l*A*B**2*H**2)*M**2*P)*R**2+(36 
&  *PI*F66*A**3*H**2-27*PI*D66*A**3*H**4)*P*Q**2*R+(9*PI*E66*A 

&  ••3*H**4-12*PI*G66*A**3*H**2)*P*Q**2)/((18*A**2*B*H**4*P**2 

&  -18*A**2*B*H**4*M**2)*R**2) 

c 

GJX  =  -(((18*PI*B66+18*PI*B12)*A**2*B*H**4+(-24*PI*E66-24*PI* 

&  E12)*A**2*B*H**2)*M*P*Q*R**2+(12*PI*F66*A**2*B*H**2-9*PI* 
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&  D66*A**2*B*H**4)*M*P*Q*R+(12*PI*G66*A**2*B*H**2-9*PI*E66*A 

&  ••2*B*H**4)*M*P*Q)/((18*A**2*B*H**4*P**2-18*A**2*B*H**4*M** 

&  2)*R**2) 

c 

c  **  corresponding  to  ** 
c 

AIY  =0.0 
c 

BJY  =  0.0 
c 

CJY  =  -(((96*Pr*2*H26*A**2-72*PI**2*F26*A**2*H**2)*M*P*Q**2+ 

&  ((32*PI**2*H16*B**2-24*PI**2*F16*B**2*H**2)*M**3+(18*A45*A 

&  ••2*B**2*H**4-144*D45*A**2*B**2*H**2+288*F45*A**2*B**2)*M)* 

&  P)*R**2+((96*PI**2*G26*A**2*H**2-128*PI**2*I26*A**2)*M*P*Q 

&  **2+(24*E26*A**2*B**2*H**2-18*B26*A**2*B**2*H**4)*M*P)*R+( 

&  32*PI**2*J26*A**2-24*PI**2*H26*A**2*H**2)*M*P*Q**2)/((18*A 

&  ••2*B*H**4*P**2-18*A**2*B*H**4*M**2)*R**2) 

c 

EJY  =  -(((18*PI*B26*A**3*H**4-24*PI*E26*A**3*H**2)*P*Q**2+(18 
&  •PI*B16*A*B**2*H**4-24*PI*E16*A*B**2*H**2)*M**2*P)*R**2+(36 

&  *PI*F26*A**3*H**2-27*PI*D26*A**3*H**4)*P*Q**2*R+(9*PI*E26*A 

&  ••3*H**4-12*PI*G26*A**3*H**2)*P*Q**2)/((18*A**2*B*H**4*P**2 

&  -18*A**2*B*H**4*M**2)*R**2) 


GA'  =  -((36*PI*B26*A**2*B*H**4-48*PI*E26*A**2*B*H**2)*M*P*Q*R 
&  •*2+(12*PI*F26*A**2*B*H**2-9*PI*D26*A**2*B*H**4)*M*P*Q*R+( 

&  12*PI*G26*A**2*B*H**2-9*PI*E26*A**2*B*H**4)*M*P*Q)/((18*A** 

&  2*B*H**4*P**2-18*A**2*B*H**4*M**2)*R**2) 

c 
c 

Else  If  (MOD(M+P,2).NE.O.  AND.MOD(N+Q^).NE.O)  Then 


•  The  following  equations  correspond  to  the  Galerkin 

•  Equations  for  Case  4  • 


c  ••  corresponding  to  u^  •• 

c 

AUO  =  0.0 
BUG  =  0.0 

CUO  =  ((-32*PI**2*E16*B**2*M*N*P**2-16*PI**2*E26*A**2*M*N**3- 


177 


&  16*PI**2*E16*B**2*M**3*N)*Q*R**2+(16*PI**2*F16*B**2*M*N*P** 

&  2+24*PI**2*F26*A**2*M*N**3+(8*PI**2*F16*B**2*M**3-12*A26*A 

&  ••2*B**2*H**2*M)*N)*Q*R+(6*B26»A**2*B**2*H**2*M*N-8*Pr*2* 

&  G26*A**2*M*N**3)*Q)/(((3*PI*A*B**2*»:**2*P**2-3*PI*A*B**2*H 

&  •*2*M**2)*Q**2-3*PI*A*B**2*H**2*N**2*P**2+3*PI*A*B**2*H**2* 

&  M**2*N**2)*R**2) 

c 

EUO  =  ((12*PI*A16*A*B**2*H**2*N*P**2+12*PI*A16*A*B**2*H**2*M 
&  **2*N)*Q*R**2+(-6*PI*B16*A*B**2*H**2*N*P**2-6*PI*B16*A*B**2 

&  *H**2*M**2*N)*Q*R)/(((3*PI*A*B**2*H**2*P**2-3*PI*A*B**2*H** 

&  2*M**2)*Q**2-3*PI*A*B**2*H**2*N**2*P**2+3*PI*A*B**2*H**2*M 

&  **2*N**2)*R**2) 

c 

GUO  =  ((12*PI*A16*B**3*H**2*M*P**2+12*PI*A26*A**2*B*H**2*M*N 
&  **2)*Q*R**2+(6*PI*B16*B**3*H**2*M*P**2-6*PI*B26*A**2*B*H**2 

&  •M*N**2)*Q*R)/(((3*PI*A*B**2*H**2*P**2-3*PI*A*B**2*H**2*M** 

&  2)*Q**2-3*P1*A*B**2*H**2*N**2*P**2+3*PI*A*B**2*H**2*M**2*N 

&  ••2)*R**2) 

c 

c  •*  corresponding  to  •• 

c 

AVO  =  0.0 

BVO  =  0.0 
c 

CVO  =  (((-16*PI**2*E26*A**2*M*N**3-16*PI**2*E16*B**2*M**3*N)* 

&  P-32*PI*»2*E26*A**2*M*N*P*Q**2rR**2+(16*PI**2*F26*A**2*M*N 

&  •P*Q**2+(8*PI**2*F26*A**2*M*N**3+(-8*PI**2*F16*B**2*M**3-12 

&  *A26*A**2*B**2*H**2*M)*N)*P)*R+(8*PI**2*G26*A**2*M*N**3-6* 

&  B26*A**2*B**2*H**2*M*N)*P)/(((3*PI*A**2*B*H**2*P**2-3*PI*A 

&  ••2*B*H**2*M**2)*Q**2-3*PI*A**2*B*H**2*N**2*P**2+3*PI*A**2* 

&  B*H**2*M**2*N**2)*R**2) 

c 

EVO  =  ((12*PI*A26*A**3*H**2*N*P*Q**2+12*PrA16*A*B**2*H**2*M 
&  ••2*N*P)*R**2+(6*PI*B16*A*B**2*H**2*M**2*N*P-6*PI*B26*A**3* 

&  H**2*N*P*Q**2)*R)/(((3*PI*A**2*B*H**2*P**2-3*PI*A**2*B*H**2 

&  *M**2)*Q**2-3*PI*A**2*B*H**2*N**2*P**2+3*PI*A**2*B*H**2*M** 

&  2*N**2)*R**2) 

c 

GVO  =  ((12*PI*A26*A**2*B*H**2*M*P*Q**2+12*PI*A26*A**2*B*H**2* 
&  M*N**2*P)*R**2+(6*PI*B26*A**2*B*H**2*M*P*Q**2+6*PI*B26*A**2 

&  •B*H**2*M*N**2*P)*R)/(((3*PI*A**2*B*H**2*P**2-3*PI*A**2*B*H 

&  •*2*M**2)*Q**2-3*PI*A**2*B*H**2*N**2*P**2+3*PI*A**2*B*H**2* 

&  M**2*N**2)*R**2) 


178 


c 


•*  corresponding  to  w  •• 


c 
c 

AW  =  0.0 
c 

BW  =  0.0 
c 

CW  =  -((((-72*PrA45*A**2*B**2*H**4+576*PI*D45*A**2*B**2*H**2 
&  -1152*PI*F45*A**2*B**2)*M-256*PI**3*H16*B**2*M**3)*N-256*PI 

&  **3*H26*A**2*M*N**3)*P*Q*R**2+(384*PI**3*I26*A**2*M*N**3+( 

&  128*PI**3*I16*B**2*M**3-192*PI*E26*A**2*B**2*H**2*M)*N)*P*Q 

&  •R+(96*PI*F26*A**2*B**2*H**2*M*N-128*PI**3*J26*A**2*M*N**3) 

&  •P*Q)/(((9*PI*A**2*B**2*H**4*P**2-9*PI*A**2*B**2*H**4*M**2) 

&  •Q**2-9*PI*A**2*B**2*H**4*N**2*P**2+9*PI*A**2*B**2*H**4*M** 

&  2*N**2)*R**2) 

c 

EW  =  .((48*PI**2*E26*A**3*H**2*N**3+144*PI**2*E16*A*B**2*H**2 
&  *M**2*N)*P*Q*R**2+((36*A26*A**3*B**2*H**4-72*PI**2*F16*A*B 

&  ••2*H**2*M**2)*N-72*PI**2*F26*A**3*H**2*N**3)*P*Q*R+(24*PI 

&  ••2*G26*A**3*H**2*N**3-18*B26*A**3*B**2*H**4*N)*P*Q)/(((9* 

&  PI*A**2*B**2*H**4*P**2-9*PI*A**2*B**2*H**4*M**2)*Q**2-9*PI* 

&  A**2*B**2*H**4*N**2*P**2+9*PI*A**2*B**2*H**4*M**2*N**2)*R** 

&  2) 

c 

GW  =  -((144*PI**2*E26*A**2*B*H**2*M*N**2+48*PI**2*E16*B**3*H 
&  **2*M**3rP*Q*R**2+(-72*PI**2*F26*A**2*B*H**2*M*N**2+24*PI 

&  ••2*F  1 6*B**3*H**2*M**3+36*  A26*  A**2*B**3*H**4*M)*P*Q*R+(  18* 

&  B26*A**2*B**3*H**4*M-24*PI**2*G26*A**2*B*H**2*M*N**2)*P*Q)/ 

&  (((9*PI*A**2*B**2*H**4*P**2-9*PI*A**2*B**2*H**4*M**2)*Q**2- 

&  9*PI*A**2*B**2*H**4*N**2*P**2+9*PI*A**2*B**2*H**4*M**2*N**2 

&  )*R**2) 

c 

c  ••  corresponding  to  T,** 

c  * 

AJX  =  ((72*D16*H**4-192*F16*H**2+I28*H16)*M*N*P*Q*R+(-72*E16* 
&  H**4+192*G16*H**2-128*I16)*M*N*P*Q)/(((9*H**4*P**2-9*H**4*M 

&  ••2)*Q**2-9*H**4*N**2*P**2+9*H**4*M**2*N**2)*R) 

c 

BJX  =  (((36*D66+36*D12)*H**4+(-96*F66-96*F12)*H**2+64*H66+64* 

&  H12)*M*N*P*Q*R+((-36*E66-36*E12)*H**4+(96*G66+96*G12)*H**2- 

&  64*I66-64*I12)*M*N*P*Q)/(((9*H**4*P**2-9*H**4*M**2)*Q**2-9* 

&  H**4*N**2*P**2+9*H**4*M**2*N**2)*R) 
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c 

CJX  =  0.0 
EJX  =  0.0 
GJX  =  0.0 
c 

c  •*  corresponding  to  ** 
c 

AJY  =  (((36*D66+36*D12)*H**4+(-96*F66-96*F12)*H**2+64*H66+64* 

&  H12)*M*N*P*Q*R+((-36*E66-36*E12)*H**4+(96*G66+96*G12)*H**2- 

&  64*I66-64*I12)*M*N*P*Q)/(((9*H**4*P**2-9*H**4*M**2)*Q**2-9* 

&  H**4*N**2*P**2+9*H**4*M**2*N**2)*R) 

c 

BJY  =  ((72*D26*H**4-192*F26*H**2+128*H26)*M*N*P*Q*R+(-72*E26* 
&  H**4+192*G26*H**2-128*I26)*M*N*P*Q)/(((9*H**4*P**2-9*H**4*M 

&  **2)*Q**2-9*H**4*N**2*P**2+9*H**4*M**2*N**2)*R) 

c 

CJY  =  0  0 
EJY  =  0.0 
GJY  =  0.0 
Else 
c 

AUO  =  0.0 
BUG  =  0.0 
CUO  =  0.0 
EUO  =  0.0 
GUO  =  0.0 
AVO  =  0.0 
BVO  =  0.0 
CVO  =  0.0 
EVO  =  0.0 
GVO  =  0.0 
AW  =  0.0 
BW  =  0.0 
CW  =  0.0 
EW  =  0.0 
GW  =  0.0 
AJX  =  0.0 
BJX  =  0.0 
CJX  =  0.0 
EJX  =  0.0 
GJX  =  0.0 
AJY  =  0.0 
BJY  =  0.0 
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CJY  =  0.0 
EJY  =  0.0 
GJY  -  0.0 
L.  J  If 
c 

c  STORE  THESE  TERMS  IN  THE  STIFFNESS  MATRIX 


STIFF(I,J)  =  AUO 
STIFF(I,J+MMAX*NMAX)  =  BUO 
STIFF(I,J+2*MMAX*NMAX)  =  CUO 
STIFF(U+3*MMAX*NMAX)  =  EUO 
STIFFa,J+4*MMAX*NMAX)  =  GUO 
STIFF(I+MMAX*NMAX,J)  =  AVO 
STIFF(I+MMAX*NMAXJ+MMAX*NMAX)  =  BVO 
STIFF(I+MMAX*NMAX,J+2*MMAX*NMAX)  =  CVO 
STIFF(I+MMAX*NMAX,J+3*MMAX'»NMAX)  =  EVO 
STIFF(I+MMAX*NMAX,J+4*MMAX*NMAX)  =  GVO 
STIFF(I+2*MMAX*NMAX4)  =  AW 
STIFF(I+2*MMAX*NMAX4+MMAX*NMAX)  =  BW 
STIFF(I+2*MMAX*NMAXJ+2*MMAX*NMAX)  =  CW 
STIFF(I+2*MMAX*NMAXJ+3*MMAX*NMAX)  =  EW 
STIFF(I+2*MMAX*NMAXJ+4*MMAX*NMAX)  =  GW 
STIFF(I+3*MMAX*NMAX4)  =  AJX 
STIFF(I+3*MMAX*NMAX4+MMAX*NMAX)  =  BJX 
STIFF(I+3*MMAX*NMAXJ+2*MMAX*NMAX)  =  CJX 
STIFF(I+3*MMAX*NMAX4+3*MMAX«NMAX)  =  EJX 
STIFF(I+3*MMAX*NMAX4+4*MMAX*NMAX)  =  GJX 
STIFF(I+4*MMAX*NMAXJ)  =  AJY 
STIFF(I+4*MMAX*NMAX^+MMAX*NMAX)  =  BJY 
STIFF(I+4*MMAX*NMAXJ+2*MMAX*NMAX)  =  CJY 
STIFF(I+4*MMAX*NMAXJ+3*MMAX*NMAX)  =  EJY 
STIFF(I+4*MMAX*NMAXJ+4*MMAX*NMAX)  =  GJY 


c  COMPUTE  MASS  MATRIX  ELEMENTS 


c  FIRST  CALCULATE  THE  MASS  MOMENTS  OF  INERTIA. 
I2BARPR  =  RHO*H**3/(15.0*R) 

I3BARPR  =  RHO*H**3/(60.0*R) 

I5BAR  =  RHO*H**3*4.0/315.0 
17  =  RHO*H**7/448.0 
II  =  RHO*H 

I4BAR  =  RHO*H**3*17.0/315.0 
AUOMASS  =  0.0 
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c 

c 

c 

c 

c 


BUOMASS  =  0.0 
CUOMASS  =  0.0 
EUOMASS  =  0.0 
GUOMASS  =  0.0 
AVOMASS  =  0.0 
EVOMASS  =  0.0 
GVOMASS  =  0.0 
EWMASS  =  0.0 
GWMASS  =  0.0 
BJXMASS  =  0.0 
EJXMASS  =  0.0 
GTXMASS  =  0.0 
AJYMASS  =  0.0 
EJYMASS  =  0.0 
GJYMASS  =  0.0 


If(NBUCVIB.EQ.l)Then 

VIBRATIONS  PROBLEM  -  WE  ARE  LOOKING  FOR  THE  NATURAL 
FREQUENCIES 

If  (M.EQ.P.AND.N.EQ.Q)  Then 
BVOMASS  =  0.0 

CVOMASS  =  PI*A*I3BARPR*Q/4.0 
AWMASS  =  0.0 
BWMASS  =  0.0 

CWMASS  =  -(16*PI**2*A**2*I7*Q**2+16*PI**2*B**2*I7*P**2+9*A** 
&  2*B**2*H**4*Il)/(A*B*H**4)/36.0 

AJXMASS  =  -A*B*I4BAR/4.0 
CJXMASS  =  0.0 
BJYMASS  =  -A*B*I4BAR/4.0 
CJYMASS  =  O.O 

Else  If  (M.EQ.P. AND.MOD(N+Q,2).NE.O)  Then 
BVOMASS  =  A*B*I2BARPR*N/(PI*Q**2-N**2*PI) 

CVOMASS  =  0.0 
AWMASS  =  0.0 

BWMASS  =  -A*I5BAR*N*Q/(Q**2-N**2) 

CWMASS  =  0.0 
AJXMASS  =  0.0 
CJXMASS  =  0.0 
BJYMASS  =  0.0 

CJYMASS  =  A*I5BAR*N*Q/(Q**2-N**2) 
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Else  If  (MOD(M+P,2).NE.O.  AND.N.EQ.Q)  Then 
BVOMASS  =  0.0 
CVOMASS  =  0.0 

AWMASS  =  -B*I5BAR*M*P/(P**2-M**2) 
BWMASS  =  0.0 
CWMASS  =  0.0 
AJXMASS  =  0.0 

CJXMASS  =  B*I5BAR*M*P/(P**2-M**2) 
BJYMASS  =  0.0 
CJYMASS  =  0.0 

Else 


BVOMASS  =  0.0 
CVOMASS  =  0.0 
AWMASS  =  0.0 
BWMASS  =  0.0 
CWMASS  =  0.0 
AJXMASS  =  0.0 
CJXMASS  =  0.0 
BJYMASS  =  0.0 
CJYMASS  =  0.0 
c 

End  If 
c 

Else 

c 

c  BUCKLING  PROBLEM  -  WE  ARE  LOOKING  FOR  THE  CRITICAL  BUCKLING 
c  LOADS 
c 

BVOMASS  =  0.0 
CVOMASS  =  0.0 
AWMASS  =  0.0 
BWMASS  =  0.0 
AJXMASS  =  0.0 
CJXMASS  =  0.0 
BJYMASS  =  0.0 
CJYMASS  =  0.0 


If  (M.EQ.P.  AND.N.EQ.Q)  Then 
CWMASS  =  B*P**2*PI**2/A/4.0 
Else 


183 


CWMASS  =  0.0 


End  If 
c 

End  If 
c 
c 

c - 

c  STORE  THESE  TERMS  IN  THE  MASS  MATRIX 


MASS(I,J)  =  AUOMASS 
MASS(I,J+MMAX*NMAX)  =  BUOMASS 
MASS(I.J+2*MMAX*NMAX)  =  CUOMASS 
MASS(I,J+3*MMAX*NMAX)  EUOMASS 
MASS(I,J+4*MMAX*NMAX)  =  GUOMASS 
MASS(I+MMAX*NMAX,J)  =  AVOMASS 
MASS(I+MMAX*NMAX,J+MMAX*NMAX)  =  BVOMASS 
MASS(I+MMAX*NMAX.J+2*MMAX*NMAX)  =  CVOMASS 
MASS(I+MMAX*NMAX,J+3*MMAX*NMAX)  =  EVOMASS 
MASS(I+MMAX*NMAX,J+4*MMAX*NMAX)  =  GVOMASS 
MASS(I+2*MMAX*NMAXJ)  =  AWMASS 
MASS(I+2*MMAX*NMAXJ+MMAX*NMAX)  =  BWMASS 
MASS(I+2*MMAX*NMAX,J+2*MMAX*NMAX)  =  CWMASS 
MASS(I+2*MMAX*NMAXJ+3*MMAX*NMAX)  =  EWMASS 
MASS(I+2*MMAX*NMAXJ+4*MMAX*NMAX)  =  GWMASS 
MASS(I+3*MMAX*NMAX4)  ^  AJXMASS 
MASSa+3*MMAX*NMAX4+MMAX*NMAX)  =  BJXMASS 
MASS(I+3*MMAX*NMAX4+2*MMAX*NMAX)  =  CJXMASS 
MASS{I+3*MMAX*NMAX4+3*MMAX*NMAX)  =  EJXMASS 
MASS(I+3*MMAX*NMAX^+4*MMAX*NMAX)  =  GJXMASS 
MASS(I+4*MMAX*NMAXJ)  =  AJYMASS 
MASS(I+4*MMAX*NMAX4+MMAX*NMAX)  =  BJYMASS 
MASS(I+4*MMAX*NMAXJ+2*MMAX*NMAX)  =  CJYMASS 
MASS(I+4*MMAX*NMAXJ+3*MMAX*NMAX)  =  EJYMASS 
MASS(I+4*MMAX*NMAXJ+4*MMAX*NMAX)  =  GJYMASS 


J  =  J+1 
20  Continue 
1  =  1+1 
J=  1 

10  Continue 

c  CALL  THE  IMSL  LIBRARY  SUBROLITINE.  USE  THE  MASS  AND  STIFFNESS 
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MATRICES  AS  INPUT  AND  FIND  THE  EIGENVALUES  AND  EIGENVECTORS. 
Call  DGVCRG(MSIZE,STIFF,MSIZE,MASS,MSIZE,ALPHA,BETA,EVEC,MSIZE) 
Do  40 1  =  LMSIZE 
If  (BETA(I).NE.0.0)  Then 
EVAUI)  =  ALPHA(I)/BETAa) 

Else 

EVAL(I)  =  (1.0D+30,0.0D+00) 

End  If 
40  Continue 

If(NBUCVIB.EQ.l)Then 

PRINT  OUT  THE  FIRST  10  MODES  FOR  THE  VIBRATION  PROBLEM 
Do  501=  1,10 

REVAL  =  DREAL(EVAL(I)) 

AGEVAL  =  DIMAG(EVAL(I)) 

If  (ABS(  AGEVAD.GT.  1  .OD- 1 5)  Then 
Write  (2,1 15)  I 

Else  If  (REVAL.GT.  l.OD+28)  Then 
Write  (2,125)  I 

Else  If  (REVAL.LT.0.0)  Then 

Write  (2,120)  I 

Else 

OMEGA  =  SQRT(REVAL) 

Write  (2,130)  I,REVAL,OMEGA 
End  If 
50  Continue 

Else 

PRINT  OUT  THE  CRITICAL  BUCKLING  LOAD.  THE  CRITICAL 
BUCKLING  LOAD  IS  THE  EIGENVALUE  WITH  THE  SMALLEST  ABSOLUTE 
VALUE . 

Do  55 1  =  2,MSIZE 

If  ( ABS(DIM  AG(EVAL(I- 1  ))).GT.  1  OD- 1 5)  Then 
Go  To  55 
End  If 

If(ABS(DREAL(EVAL(I))).GT.ABS(DREAL(EVALa-l))).AND. 

&  ABS(DREAL(EVAL(I-1))).LT. l.OD+28)  Then 
Write  (2,220)  DREAL(EVAL(I-1)) 

End  If 
55  Continue 


End  If 


c  PRINT  OUT  THE  1ST  MODE  OF  THE  DEFLECTION,  W(X,Y),  ALONG  THE 
c  MIDLINES  OF  THE  PANEL:  X  =  AJ2  AND  Y  =  B/2 
c 

c  PRINT  OUT  THE  W  EIGENVECTOR,  CMN 
c 

11  =  1 

Write  (2,500) 

Write  (2,510) 

MNWMIN  =  1+2*MMAX*NMAX 
MNWMAX  =  3*MMAX*NMAX 
Do  400  I  =  MNWMIN,MNWMAX 
REVEC(II)  =  DREAL(EVECa,l)) 

AGEVEC  =  DIMAG(EVECa.l)) 

If  (ABS(AGEVEC).GT.1.0D-15)  Then 
Write  (2,520)  I,II,REVECai) 

Else 

Write  (2,530)  I,n,REVECai) 

End  If 

n  =  n+i 

400  Continue 
c 

c  DETERMINE  W(X=A/2,Y) 
c 

ASTEP  =  A/50.0 
BSTEP  =  B/50.0 
XCOORD  =  A/2.0 
YCOORD  =  0.0 
Write  (2,540) 

Write  (2,542) 

801  WMODE  =  0.0 
JJJ=  1 

Do  470  M  =  1, MM  AX 
Do472N=  1,NMAX 

WMODE  =  WMODE+REVEC(JJJ)*SIN(M*PI*XCOORD/A)*SIN(N*PI*YCOORD/B) 
JJJ  =  JJJ+1 
472  Continue 
470  Continue 

Write  (2,550)  YCOORD,WMODE 
YCOORD  =  YCOORD+ BSTEP 
If  (YCOORD.GT.B)  Then 
Go  To  800 
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Else 

Go  To  801 
End  If 
c 

800  YCOORD  =  B/2.0 
c 

c  DETERMINE  W(X,  Y=B/2) 
c 

XCCXJRD  =  0.0 
Write  (2,560) 

Write  (2,570) 

810WMODE  =  0.0 
JJJ=  1 

Do480M  =  1,MMAX 
Do  482  N  =  1,NMAX 

WMODE  =  WMODE+REVEC(JJJ)*SIN(M*PI’»XCOORD/A)*SIN(N*PI*YCOORD/B) 
JJJ  =  JJJ+1 
482  Continue 
480  Continue 

Write  (2,550)  XCOORD, WMODE 
XCOORD  =  XCOORD+ASTEP 
If(XCOORD.GT.A)Then 
Go  To  850 
Else 

Go  To  810 
End  If 

1 15  Format  (/,8X,I3,1 1X,’EIGENVALUE  IS  COMPLEX’) 

120  Format  (/,9X,I3,1 1X,’EIGENVALUE  IS  NEGATIVE’) 

125  Format  (/,9X,I3,1 1X,’E.>^GENVALUE  IS  INFINITE’) 

130  Format  (/,9X,I3,10X,D20.13,12X,D20.13) 

200  Format  (/,8X,I3,10X,D20.13) 

220  Format  (//,5X, ’CRITICAL  BUCKLING  LOAD  =  ’,1X,D20.13) 

500  Format  (//,5X,’W  EIGENVECTOR,  CMN,  FOR  1ST  MODE’) 

510  Format  (//,5X,’M,  N’,10X,’CMN’) 

520  Format  (/,5X,I4,2X,I4,12X,D20.13,3X,’COMPLEX’) 

530  Format  (/,5X,I4,2X,I4,12X,D20.13) 

540  Format  (//,5X,’DEFLECnON,  W(X=Ay2,Y)’) 

542  Format  (//,5X,’Y(IN.)’,10X,’W(A/2,YKIN.)’) 

550  Format  (/,5X,F6.2,11X,E15.8) 

560  Format  (//,5X,’DEFLECTION,  W(X,Y=B/2)’) 

570  Format  (//,5X,’X(IN.)’,10X,’W(X,  B/2)(IN.)’) 

850  Return 
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The  following  is  the  GALERK  subroutine  for  the  simple-clamped  boundary 


Subroutine  GALERK(PI,R,H,A,B,A1 1,A12,A22,A16,A26,A66,A44,A45,A55, 

&  D1 1,D12,D22,D16,D26,D66,D44,D45,D55,F1 1,F12.F22,F16,F26,F66,F44, 

&  F45,F55,H  1 1  ,H  12,H22,H  1 6,H26,H66,J  1 1  ,J 1 2,J22J  1 6,J26,J66,B  1 1  ,B12, 

&  B22,B16,B26,B66,E1  l.E12,E22.”16,E26,E66,Gl  1,G12,G22,G16,G26,G66, 

&  II  1,112,122, 116, 126, 166, NBUCViB.MMAX,MSIZE,RHO, STIFF, MASS, beta, 
&  ALPHA,EVAL,EVEC,MSIZESQ,REVEC) 


c  THIS  SUBROUTINE  GENERATES  THE  GALERKIN  EQUATIONS  AND  FORMS 
c  THE  MASS  AND  STIFFNESS  MATRICES.  THEN  IT  CALLS  DGVCRG,  AN 
c  IMSL  SUBROUTINE  WHICH  SOLVES  THE  EIGENVALUE  PROBLEM: 
c 

c  [STIFF]{X}  =  (OMEGA^2  OR  N1BAR)[MASS]{X}  ' 


Double  Precision  PI,R,H,A,B,A11,A12,A22,A16,A26,A66,A44,A45,A5S, 

&  D1 1,D12,D22,D16,D26,D66,D44,D45,D55,F1  l.F12,F22,F16,F26,F66,F44, 

&  F45,F55,H1 1,H12,H22,H16,H26,H66,J1 1,J12J22J16J26,J66,B1 1,B12, 

&  B22,B1 6,B26,B66,E  1 1  ,E  12,E22,E  1 6,E26,E66,G  1 1  ,G  1 2,G22,G1 6,G26,G66, 

&  II  1,I12,I22,I16,I26,I66,STIFF(MSIZE,MSIZE),MASS(MSIZE,MSIZE), 

&  AUO,BUO,CUO,EUO,GUO,AVO,BVO,CVO,EVO,GVO,AW,BW,CW,EW,GW,AJX,BJX, 
&  CJX,EJX,GJX,AJY,BJY,CJY,EJY,GJY,AUOMASS,BUOMASS,CUOMASS,EUOMASS, 

&  GUOMASS,AVOMASS,BVOMASS 

Double  Precision  CVOMASS,EVOMASS,GVOMASS,AWMASS,BWMASS,CWMASS, 

&  EWMASS,GWMASS,AJXMASS,BJXMASS,aXMASS,EJXMASS,GJXMASS,AJYMASS, 
&  BJYMASS,CJYMASS,EJYMASS,GJYMASS,RHO,I2BARPR,I3BARPR,I5BAR,I7,Il, 

&  I4BAR 

Integer  P,Q,M,N,MMAX,NMAX 

c  THESE  VARIABLES  NEEDED  FOR  THE  IMSL  EIGENVALUE  SOLVER  . 

Double  Precision  BETA(MSIZE),REVAL,OMEGA,AGEVAL,AGEVEC, 

&  REVEC(MSIZESQ) 

Double  Complex  ALPHA(MSIZE),EVAL(MSIZE),E”EC(MSIZE,MSIZE) 


c  NUMBER  OF  TERMS  IN  THE  ADMISSIBLE  FUNCTIONS 
NMAX  =  MMAX 

c  GENERATE  GALERKIN  EQUATIONS 
1=  1 
J=  1 

DolOP=  1,MMAX 
Do  10Q=  LNMAX 
Do20M  =  1,MMAX 
Do20N  =  LNMAX 
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c¬ 


c  COMPUTE  STIFFNESS  MATRIX  ELEMENTS 

c - 

***«**•«***«*«»*••«•*************«***»*««****«*•«****««**•••***** 

•  The  following  equations  correspond  to  the  Galerkin  * 

*  Equations  for  Case  I  • 

******•*«***«»*»*»«***************•**«***••*«*«*•«*••*****«****** 

c 

If  (M.EQ.P.AND.N.EQ.Q)  Then 
c 

c  ••  corresponding  to  u^ 

c 

AUO  =  0.0 

BUO  =  -(((12*PI**2*B66+12*PI**2*B12)*A**2*B*H**2+(-16*PI**2* 

&  E66-1 6*PI**2*E1 2)*  A**2*B)*P*Q*R  ^*2+((-6*PI**2*D66- 1 2*PI**2* 

&  D12)*A**2*B*H**2+(8*PI**2*F66+16*PI**2*F12)*A*»2*B)*P*Q*R)/ 

&  (A**2*B*H**2*R**2)/48.0 

c 

CUO  =  -(((-32*PI*"3*E66-16*PI**3*E12)*A**2*P*Q**2-16*PI**3* 

&  El  1*B**2*P**?;*R**2+((32*PI**3*F66+16*PI**3*F12)*A**2*P*Q** 

&  2-12*PI*A12*A‘»i*2**2*H**2*P)*R-8*PI**3*G66*A**2*P*Q**2)/(A 

&  ••2*B*H**2*R**2)/48.0 

c 

EUO  =  -((12*PI**2*A66*A**3*H**2*Q**2+12*P1**2*A1 1*A*B**2*H**2 
*P**2)*R**2-12*PI**2*B66*A**3*H**2*Q**2*R+3*PI**2*D66*A**3* 
&  H**2*Q”2)/(A**2*B*H**2*R**2)/48.0 

c 

GUO  =  -((12*PI**2*A66+12*PI**2*A12)*A**2*B*H**2*P*Q*R*»2-3*PI 
&  **2*D66*A**2*B*H**2*P*Q)/(A**2*B*H»*2*R**2)/48.0 

c 

c  •*  corresponding  to  •* 

c 

AVO  =  0.0 
c 

BVO  =  -(((12*PI**2*B22*A**2*B*H**2-16*PI**2*E22*A**2*B)*Q**2+ 

&  (12*PI**2*B66*B**3*H**2-16*PI**2*E66*B**3)*P**2)*R**2+((16* 

&  PI**2*F22*A**2*B-12*PI**2*D22*A**2*B*H”2)*Q**2+(6*PI**2* 

&  D66*B**3*H**2-8*PI**2*F66*B**3)*P**2)*R)/(A*B**2*H**2*R**2) 

&  /48.0 

c 

cvo  =  -((((-32*PI**3*E66-16*PI**3*E12)*B**2*P**2)*Q-16*PI**3* 

&  E22*A**2*Q**3)*R**2+(16*PI**3*F22*A**2*Q**3-12*PI*A22*A**2* 

&  B**2*H**2*Q)*R+8*PI**3*G66‘B**2*P**2*Qy(A*B**2*H**2*R**2)/ 
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&  48.0 


EVO  =  -((12*Pr*2*A66+12*PI**2*A12)*A*B**2*H**2*P*Q*R**2-3*PI 
&  **2*D66*A*B**2*H**2*P*Q)/(A*B**2*H**2*R**2)/48.0 

c 

GVO  =  -((12*PI**2*A22*A**2*B*H**2*Q**2+12*PI**2*A66*B**3*H**2 
&  *P**2)*R**2+12*PI”2*B66*B**3*H*»2*P**2*R+3*PI**2*D66*B**3* 

&  H**2*P**2)/(A*B**2*H**2*R**2)/48.0 

c 

c  **  corresponding  to  w  ** 

c 

AW  =  0.0 
c 

BWl  =  ((12*PI**3*F22*A**4*B*H**2-16*PI**3*H22*A**4*B)*Q**3+(( 

&  (24*PI**3*F66+12*PI**3*F12)*  \*»2*B**3*H**2+(-32»PI”3*H66- 

&  16*PI**3*H12)*A**2*B**3)*F  *2-9*PrA44*A**4*B**3*H**4+72*PI 

&  'D44*A**4*B**3*H**2-144*PI*F44*A**4»B**3)*Q)/(A**3*B**3*H** 

&  4)/36.0 

c 

BW2  =  (((32*PI**3*I22*A**4*B-24*PI**3*G22*A**4*B*H**2)*Q**3-^( 

&  ((-12*PI**3*G66-I2*PI**3*G12)*A**2*B**3*H**2+(16*PI**3*I66+ 

&  16*PI**3*I12)*A**2*B**3)*P**2+9*PrB22*A**4*B**3*H**4-12*PI 

&  *E22*A**4*B**3*H**2)*Q)*R+(12*Pr*3*H22*A**4*B*H**2-16*PI** 

&  3*J22*A**4*B)*Q**3+(12*PI*F22*A**4*B**3*H**2-9*PI*D22*A**4* 

&  b**3*H**4)*Q)/(A**3*B**3*H**4*R**2)/36.0 

c 

BW  =  BW1+BW2 
c 

CWl  =  (-16*PI**4*H22*A**4*Q**4+((-64*PI**4*H66-32*PI»*4*HI2)* 

&  A**2*B**2*P**2-9*PI**2*A44*A**4*B**2*H**4+72*PI**2*D44*A**4 

&  •B**2*H**2-144*PI**2*F44*A**4*B**2)*Q**2-16*PI**4*H11*B**4* 

P»*4+(-9*PI**2*A55*A**2*B**4*H**4+72*PI**2*D55*A**2*B**4*H 
&  •*2-144*PI**2*F55*A**2*B**4)*P**2)/(A**3*B**3*H**4)/36.0 

c 

CW2  =  ((32*PI**4*I22*A**4*Q**4+((64*PI**4*I66+32'PI**4*I12)*A 
&  **2*B**2*P**2-24*PI**2*E22*A**4*B**2*H**2)*Q**2-24*PI**2* 

&  E12*A**2*B**4*H**2*P**2)*R-16*PI**4*J22*A**4*Q**4+(24*PI**2 

&  •F22*A**4*B**2*H**2-16*PI**4*J66*A**2*B**2*P**2)*Q**2-9*A22 

&  *A**4*B**4*H**4)/(A**3*B**3*H**4*R**2)/36.0 

c 

c:w  =  CW1+CW2 

c 

EW  =  (((24*PI**3*E66+12*PI**3*E12)*A**3*B**2*H**2*P*Q**2+12* 
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&  PI**3*Ell*A*B**4*H**2*P**3)*R**2+((-24*PI**3*F66-12*PI**3* 

&  F12)»A**3*B**2*H**2*P*Q**2+9*PI*A12*A**3*B**4*H**4*P)*R+6* 

&  PI**3*G66*A**3*B**2*H**2*P*Q**2)/(A**3*B**3*H**4*R**2)/36.0 

c 

GW  =  ((12*PI**3*E22*A**4*B*H**2*Q**3+(24*PI**3*E66+12*PI**3* 

&  E12)*A**2*B**3*H**2*P**2*Q)*R**2+(9*PI*A22*A**4*B**3*H**4*Q 

&  -12*PI**3*F22*A**4*B*H**2*Q**3)*R-6*PI**3*G66*A**2*B**3*H** 

&  2*P**2*Q)/(A**3*B**3*H**4*R**2)/36.0 

c 

c  **  corresponding  to  T,  ** 
c 

AJX  =  -(((9*PI**2*D66*A**2*H**4-24*PI**2*F66*A**2*H**2+16*PI 
&  **2*H66*A**2)*Q**2+(9*PI**2*D11*B**2*H**4-24*PI**2*F1I*B**2 

&  *H**2+ 1 6*PI**2*H  1 1  •B**2)*P**2+9*  A55*  A**2*B**2*H**4-72*D55*A 

&  ••2*B**2*H**2+144*F55*A**2*B**2)*R**2 .  ,-18*PI**2*E66*A**2*H 

&  ••4+48*PI**2*G66*A**2*H**2-32*PI**2*I66*A**2)*Q**2*R+(9*PI 

&  •*2*F66*A**2*H**4-24*PI**2*H66*A**2*H**2+16*PI**2*J66*A**2) 

&  •Q**2)/(A*B*H**4*R**2)/36.0 

c 

BJX  =  0.0 
c 

CJX  =  0.0 
c 

EJX  =  0.0 
c 

GJX  =  0.0 
c 

AJY  =  0.0 
c 

c  ••  corresponding  to  7^  ** 
c 

BJY  =  -(((18*PI**2*D22*A**2»B*H**4-48*PI**2*F22*A**2*B*H**2+ 

&  32*PI**2*H22*A**2*B)*Q**2+(18*PI**2*D66*B**3*H**4-48*Pr*2* 

&  F66*B**3*H**2+32*PI**2*H66*B**3)*P**2+18*A44*A**2*B**3*H**4 

&  -144*D44*A**2*B**3*H**2+288*F44*A**2*B**3)*R**2+(-36*PI**2* 

&  E22*A**2*B*H**4+96*PI**2*G22*A**2*B*H**2-64*PI**2*I22*A**2* 

&  B)*Q**2*R+(18*PI**2*F22*A**2*B*H**4-48*PI**2*H22*A**2*B*H** 

&  2+32*PI**2*J22*A**2*B)*Q**2)/(A*B**2*H**4*R»*2)/72.0 

c 
c 

CJYl  =  -((32*PI**3*H22*A**2-24*Pl**3*F22*A**2*H**2)*Q**3+((( 

&  -48*PI**3*F66-24*PI**3*F12)*B**2*H**2+(64*PI**3*H66+32*PI** 

&  3*H12)*B**2rP**2+18*PI*A44*A**2*B**2*H**4-144*PI*D44*A**2* 
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&  B**2*H**2+288*PI*F44*A**2*B**2)*Q)/(A*B**2*H**4)/72.0 

c 

CJY2  =  -(((48*PI**3*G22*A**2*H**2-64*PI**3*I22*A**2)*Q**3+((( 

&  24*PI**3*G66+24*PP*3*G12)*B**2*H**2+(-32*PI**3*I66-32*PI** 

&  3*I12)*B**2)*P**2-I8*PI*B22*A**2*B**2*H**4+24*PI*E22*A**2*B 

&  **2*H**2)*Q)*R+(32*PI**3*J22*A**2-24*PI**3*H22*A**2*H**2)*Q 

&  **3+(18*PI*D22*A**2*B**2*H**4-24*PI*F22*A**2*B**2*H**2)*Qj/ 

&  (A*B**2*H**4*R**2)/72.0 

c 

CJY  =  CJYl+aY2 
c 

EJY  =  -(((18*PI**2*B66+l8*PI**2*B12)*A*B**2*H**4+(-24*PI**2* 

&  E66-24*PI**2*E12)*A*B**2*H**2)*P*Q*R**2+((-9*PI**2*D66-18* 

&  PI**2*D12)*A*B**2*H**4+(12*PI»*2*F66+24*PI**2*F12)*A*B**2*H 

&  ••2)*P*Q*R)/(A*B**2*H**4*R**2)/72.0 

c 

GJY  =  -(((18*PI**2*B22*A**2*B*H**4-24*PI**2*E22*A**2*B*H**2)* 

&  Q**2+(18*PI**2*B66*B**3*H**4-24*PI**2*E66*B**3*H**2)*P**2)* 

&  R**2+((24*PI**2*F22*A**2*B*H**2-18*PI**2*D22*A**2*B*H**4)*Q 

&  ••2+(9*PI**2*D66*B**3*H**4-12*PI**2*F66*B**3*H**2)*P**2)*R) 

&  /(A*B**2*H**4*R**2)/72.0 

c 

Else  If  (M.EQ.P. AND.MOD(N+Q,2).NE.O) Then 
c 

**«*«•**«*«********«««****«*******«•*•«•«*««**••******«*****•*«•• 

*  The  following  equations  correspond  to  the  Galerkin  • 

*  Equations  for  Case  2  • 

****»0»»*9*m**00*m********m************m*******0****m»*********»» 

C 

c  •*  corresponding  to  u,  •* 
c 

AUO  =  ((12*PI*B16*H**2-16*PI*E16)*N*P*Q*R+(12*PI*F16-9*PI*D16 
&  •H**2)*N*P*Q)/((6*H**2*Q**2-6*H**2*N**2)*R) 

c 

BUG  =  0.0 
c 

CUO  =  0.0 
c 

EUO  =  0.0 
c 

GUO  =  0.0 
c 

c  ••  corresponding  to  •• 
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AVO  =  (((6*PI*B26*A**2*H**2-8*PI*E26*A**2)*N*Q**2+(6*PI*B16*B 
&  ••2*H**2-8*PI*E16*B**2)*N*P**2)*R+(8*PI*F26*A**2-6*PI*D26*A 

&  ••2*H**2)*N*Q**2+(3*PI*D1 6*B**2*H*»2-4*PI*F1 6*B**2)*N*P**2) 

&  /((6*A*B*H**2*Q**2-6*A*B*H**2*N**2)*R) 

c 

BVO  =  0.0 
c 

CVO  =  0.0 
c 

EVO  =  0.0 
c 

GVO  =  0.0 
c 

c  **  corresponding  to  w  ** 
c 

AW  =  -(((36*PI**2*F16*B**2*H**2-48*PI**2*H16*B**2)*N*P**2+(12 
&  •PI**2»F26*A**2*H**2-16*PI**2*H26*A**2)*N**3+(-9*A45*A**2*B 

&  **2*H**4+72*D45*A**2*B**2*H**2-144*F45*A**2*B**2)*N)*Q*R**2 

&  +((32*PI**2*I16*B**2-24*PI**2*G16*B**2*H**2)*N*P**2+(32*PI 

&  ••2*I26*A**2-24*PI**2*G26*A**2*H**2)*N**3+{9*B26*A**2*B**2* 

&  H**4-12*E26*A**2*B**2*H**2rN)*Q*R+((I2*PI**2*H26*A**2*H**2 

&  -16*PI**2*J26*A**2)*N**3+(12*F26*A**2*B**2*H**2-9*D26*A**2* 

&  B**2*H**4)*N)*Q)/((9*A*B**2*H**4*Q**2-9*A*B**2*H**4*N**2)*R 

&  **2) 
c 

BW  =  0.0 
c 

CW  =  0.0 
c 

EW  =  0.0 
c 

GW  =  0.0 
c 

c  ••  corresponding  to  T,  •* 
c 

AJX  =  0.0 
c 

BJX  =  -(((18*PI**2*D16*B**3*H**4-48*PI**2*F16*B**3*H**2+32*PI 
&  ••2*H16*B**3)*P**2+(18*PI**2*D26*A**2*B*H**4-48*PI**2*F26*A 

&  ••2*B*H**2+32*PI**2*H26*A**2*B)*N**2+18*A45*A**2*B**3*H**4- 

&  144*I>45*A**2*B**3*H**2+288*F45*A**2*B**3)*Q*R**2+(-36*PI**2 

&  •E26*A**2*B*H**4+96*PI**2*G26*A**2*B*H**2-64*PI**2*I26*A**2 
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&  *B)*N**2*Q*R+(18*PI**2*F26*A**2*B*H**4-48*PI**2*H26*A**2*B* 

&  H**2+32*PI**2*J26*A**2*B)*N**2*Q)/((18*PI*A*B**2*H**4*Q**2- 

&  18*PI»A*B**2*H**4*N**2)*R**2) 

c 

CJX  =  -(((96*PI**3*H1d*B**2-72*PI**3*F16*B**2*H**2)*N*P**2+( 

&  32*PI**3*H26*A**2-24*PI**3*F26*A**2*H**2)*N**3+(18*PI*A45*A 

&  **2*B**2*H**4-144*PI*D45*A**2*B**2*H**2+288*PI*F45*A**2*B** 

&  2)*N)*Q*R**2+((48*PI**3*G16*B**2*H**2-64*PI**3*I16*B**2)*N* 

&  P**2+(48*Pr*3*G26'»A**2*H**2-64*PI**3*I26*A**2)*N**3+(24*PI 

&  •E26*A**2*B**2*H**2-18*PI*B26*A**2*B**2*H**4)*N)*Q*R+((32* 

&  PI**3*J26*A**2-24*PI**3*H26*A**2*H**2)*N**3+(18*PI*D26*A**2 

&  •B**2*H**4-24*PI*F26*A**2*B**2*H**2)*N)*Q)/((18*PI*A*B**2*H 

&  **4*Q**2-18*PI*A*B**2*H**4*N**2)*R**2) 

c 

EJX  =  -((36*PI**2*B16*A*B**2*H**4-48*PI**2*E16*A*B**2*H**2)*N 
&  •P*Q*R**2+(36*Pr*2*F16*A*B**2*H**2-27*PI**2*D16*A*B**2*H** 

&  4)*N*P*Q»R)/((18*PI*A*B**2*H**4'*Q**2-18*PI*A*B**2*H**4*N**2 

&  )*R**2) 

c 

GJX  =  -(((18*PI**2*B16*B**3*H**4-24*PI**2*E16*B**3*H**2)*P**2 
&  +(18*Pl**2*B26*A**2*B*H**4-24*PI**2*E26*A**2*B*H**2)*N**2)* 

&  Q*R**2+((9*PI**2*D16*B**3*H**4.12*PI**2*F16*B**3*H**2)*P**2 

&  +(24*PI**2*F26*A**2*B*H**2-18*PI**2*D26*A**2*B*H**4)*N**2)* 

&  Q*R)/((18*PI*  A*B**2*H**4*Q**2-18*PI*  A*B**2*H**4*N**2)*R**2) 

c 

c  ••  corresponding  to  Tj,  •* 
c 

AJYl  =  ((9*PI**2*D26*A**2*H**4-36*Pr*2*F26*A**2*H**2+32*PI** 

&  2*H26*A»*2)*N*Q**2+(9*PI**2*D16*B**2*H**4-24*PI**2*F16*B**2 

&  *H**2+16*PI**2*H16*B**2)*N*P**2+{12*PI**2*F26*A**2*H**2-16* 

&  P1**2*H26*A**2)*N**3+(9*A45*A**2*B**2*H**4-72*D45*A**2*B**2 

&  •H**2+144*F45*A**2*B**2)*N)/(9*PI*A*B*H**4*Q**2-9*PI*A*B*H 

&  ••4*N**2) 

c 

AJY2  =  (((-18*PI**2*E26*A**2*H**4+72*PI**2*G26*A**2*H**2-64* 

&  PI**2*I26*A**2)*N*Q**2+(32*PI**2*I26*A’*2-24*PI**2*G26*A**2 

&  •H**2)*N**3)*R+(9*PI**2*F26*A**2*H**4-36*PI**2*H26*A**2*H** 

&  2+32»PI**2*J26*A**2)*N*Q**2+(12*PI**2*H26*A**2*H**2-16*PI** 

&  2*J26*A**2)*N**3)/((9*PI*A*B*H**4*Q**2-9*PI*A*B*H**4*N**2)* 

&  R**2) 

c 

AJY  =  AJY1+AJY2 
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BJY  =  0.0 


CJY  =  0.0 
c 

EJY  =  0.0 
c 

GJY  =  0.0 
c 

Else  If  (MOD(M+P.2).NE.O.  AND.N.EQ.Q)  Then 
c 

**««*«*««*«**«••**•*•***«****•«*«««** **««*****i»***********»**»*** 

*  The  following  equations  correspond  to  the  Galerkin  * 

•  Equations  for  Case  3  • 

*«•*****«««««««**«•*«*****««******•*•««*«*«««**«*******«*****«**« 

c  ••  corresponding  to  u^,  ** 
c 

AUO  =  (((6*PI*B66*A**2*H**2-8*PI*E66*A**2)*M*Q**2+(6*PI*B11*B 
&  ♦•2*H**2-8*PI*E1 1*B**2)*M*P**2)*R**2+(12*PI*F66*A**2-9*PI* 

&  D66*A**2*H**2)*M*Q**2*R+(3*PI*E66*A**2*H**2-4*PI*G66*A**2)* 

&  M*Q**2)/((6*A*B*H**2*P**2-6*A*B*H**2*M**2)*R**2) 

c 

BUG  =  0.0 
c 

CUO  =  0.0 
c 

EUO  =  0.0 
c 

GUO  =  0.0 
c 

c  •*  corresponding  to  •* 
c 

AVO  =  (((6*PI*B66+6*PrB12)*H**2-8*PI*E66-8*PI*E12)*M*P*Q*R** 

&  2+(4*PI*F66-3*PI*D66*H**2)*M*P*Q*R+(4*PI*G66-3*PI*E66*H**2) 

&  •M*P*Q)/((6*H**2*P**2-6*H**2*M**2)*R**2) 

c 

BVO  =  0.0 
c 

CVO  =  0.0 
c 

EVO  =  0.0 
c 

GVO  =  0.0 


195 


c 


*•  coresponding  to  w  •* 


AW  =  -((((24*PI**2*F66+12*PI**2*F12)*A**2*H**2+(-32*PI**2*H66 
&  -16*PI**2*H12)*A**2)*M*P*Q**2+((12*PI**2*F11*B**2*H**2-16* 

&  PI**2*Hll*B**2)*M**3+(-9*A55*A**2*B**2*H**4+72*D55*A**2*B** 

&  2*H**2-144*F55*A**2*B**2)*M)*P)*R**2+(((-36*PI**2*G66-12*PI 

&  **2*G12)*A**2*H**2+(48*PI**2*I66+16*PI**2*I12)*A**2)*M*P*Q 

&  ••2+(9*B12*A**2*B**2*H**4-12*E12*A**2*B**2*H**2)*M*P)*R+(12 

&  *PI**2*H66*A**2*H**2-16*PI**2*J66*A**2)*M*P*Q**2)/((9*A**2* 

&  B*H**4*P**2-9*A**2*B*H**4*M**2)*R**2) 

c 

BW  =  0.0 
c 

CW  =  0.0 
c 

GW  =  0.0 
c 

EW  =  0.0 
c 

c  **  corresponding  to  7,  •* 
c 

AJX  =  0.0 
c 

BJX  =  .(((18*PI*D66+18*PI*D12)*A**2*B*H**4+(48*PI*F6648*PI* 

&  F12)*A**2*B*H**2+(32*PI*H66+32*PI*H12)*A**2*B)*M*P*Q*R**2+( 

&  (-18*PI*E66-18*PI*E12)*A**2*B*H**4+(48*PI*G66+48*PI*G12)*A 

&  **2*B*H**2+(-32*PI*I66-32*PI*I12fA*»2*B)*M*P*Q*R)/((18*A** 

&  2*B*H**4*P**2-18*A**2*B*H**4»M**2)*R**2) 

c 

CJX  =  -((((-48*PI**2*F66-24*PI**2*F12)*A**2*H**2+(64*PI**2* 

&  H66+32*PI**2*H12)*A**2)*M*P*Q**2+((32*PI**2*H1 1*B**2-24*PI 

&  ••2*F1 1*B**2*H**2)*M**3+(18*A55*A**2*B**2*H**4-144*D55*A**2 

&  •B**2*H**2+288*F55*A**2*B**2)*M)*P)*R**2+(((72*Pr*2*G66+24 

&  •PI**2*G12)*A**2*H**2+(-96*PI**2*I66-32*PI**2*I12)*A**2)*M* 

&  P*Q**2+(24*E12*A**2*B**2*H**2-18*B12*A**2*B**2*H**4)*M*P)*R 

&  +(32*PI**2*J66*A**2-24*PI**2*H66*A**2*H**2)*M*P*Q**2)/((18* 

&  A**2*B*H**4*P**2-18*A**2*B*H**4*M**2)*R**2) 

c 

EJX  =  -(((18*PI*B66*A**3*H**4-24*PI*E66*A**3*H**2)*P*Q**2+(18 
&  •PI*Bll*A*B**2*H**4-24*PI*Ell*A*B**2*H**2)*M**2*P)*R**2+(36 

&  •PI*F66*A**3*H**2-27*PI*D66*A**3*H**4)*P*Q**2*R+(9*PI*E66*A 

&  ••3*H**4-12*PI*G66*A**3*H**2)*P*Q**2)/((18*A**2*B*H**4*P**2 

&  -18*A**2*B*H**4*M**2)*R**2) 
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GJX  =  -(((18*PI*B66+18*PI*B12)*A**2*B*H**4+(-24*PI*E66-24*PI* 

&  E12)*A**2*B*H**2)*M*P*Q*R**2+(12*PI*F66*A**2*B*H**2-9*PI* 

&  D66*A**2*B*H**4)*M*P*Q*R+(12*PI*G66*A**2*B*H**2-9*PI*E66*A 

&  ♦•2*B*H**4)*M*P*Q)/((18*A**2*B*H**4*P**2-18*A**2*B*H*M*M** 

&  2)*R**2) 

c 

c  **  corresponding  to  7^  ** 
c 

AJY  =  (((9*PI*D66+9*PI*D12)*H**4+(-24*PI*F66-24*PI*F12)*H**2+ 

&  l6*PI*H66+16*PI*H12)*M*P*Q*R+((-9*PI*E66-9*PI*E12)*H**4+(24 

&  *PI*G66+24*PI*G12)*H**2-16*PI*I66-16*PI*I12)*M*P*Q)/((9*H** 

&  4*P**2-9*H**4*M**2)*R) 

BJY  =  0.0 
c 

CJY  =  0.0 
c 

EJY  =  0.0 
c 

GJY  =  0.0 
c 
c 

Else  If  (MOD(M+P,2).NE.O.AND.MOD(N+Q.2).NE.O)  Then 
c 

a**************************************************************** 

•  The  following  equations  correspond  to  the  Galerkin  * 

•  Equations  for  Case  4  • 

*«*•««*•«•*•«•*•***•«**«*•*•«««***•••*«***•**«*«««**••***«***•«•* 

c 

c  ••  corresponding  to  u^,  •• 
c 

AUO  =  0.0 
c 

BUG  =  (((12*PI*B16*B**3*H**2-16*PI*E16*B**3)*M*P**2+(12*PI* 

&  B26*A**2*B*H**2-16*PI*E26*A**2*BrM*N**2)*Q*R**2+(24*PI*F26 

&  •A**2*B-18*PI*D26*A**2*B*H**2)*M*N**2*Q*R+(6*PI*E26*A**2*B* 

&  H**2-8*PI*G26*A**2*B)*M*N**2*Qy(((3*PI*A*B**2*H**2*P**2-3* 

&  PI*A*B**2*H**2*M**2)*Q**2-3*PI*A*B**2*H**2*N**2*P**2+3*PI*A 

&  *B**2*H**2*M**2*^**2)*R**2) 

c 

CUO  -  ((-32*PI**2*E16*B**2*M*N*P**2-16*PI**2*E26*A**2*M*N**3- 
&  16*PI**2*E16*B**2*M**3*N)*Q*R**2+(16*PI**2*F16*B**2*M*N*P** 

&  2+24*PI**2*F26*A**2*M*N**3+(8*PI**2*F16*B**2*M**3-12*A26*A 
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&  **2*B**2*H**2*M)*N)*Q*R+(6*B26*A**2*B**2*H**2*M*N-8*PI**2* 

&  G26*A**2*M*N**3)*Q)/(((3*PI*A*B**2*H**2*P**2-3*PI*A*B**2*H 

&  •*2*M**2)*Q**2-3*PI*A*B**2*H**2*N**2*P**2+3*PI*A*B**2*H**2* 

&  M**2*N**2)*R**2) 

c 

EUO  =  ((12*PI*A16*A*B**2*H**2*N*P**2+12*PI*A16*A*B**2*H**2*M 
&  **2*N)*Q*R**2+(-6*PI*B16*A*B**2*H**2*N*P**2-6*PI*B16*A*B**2 

&  *H**2*M**2*N)*Q*R)/(((3*PI*A*B**2*H**2*P**2-3*PI*A*B**2*H** 

&  2*M**2)*Q**2-3*PI*A*B**2*H**2*N**2*P**2+3*PI*A*B**2*H**2*M 

&  **2*N**2)*R**2) 

c 

GUO  =  ((12*PI*A16*B**3*H**2*M*P**2+12*PI*A26*A**2*B*H*»2*M*N 
&  **2)*Q*R**2+(6*PI*B16*B**3*H**2*M*P**2-6*PI*B26*A**2*B*H**2 

&  •M*N**2)*Q*R)/(((3*PI*A*B**2*H**2*P**2-3*PI*A*B**2*H**2*M** 

&.  2)*Q**2-3*PI*A*B**2*H**2*N**2*P**2+3*PI*A*B**2*H**2*M**2*N 

&  •*2)*R**2) 

c 

c  ••  corresponding  to  •* 

c 

AVO  =  0.0 
c 

BVO  =  (((12*PI*B26*A**2*B*H**2-16*PI*E26*A**2*B)*M*P*Q**2+(12 
&  •PI*B26*A**2*B*H**2-16*PI*E26*A**2*B)*M*N**2*P)*R**2+(8*PI* 

&  F26*A**2*B-6*PI*D26*A**2*B*H**2rM*N**2*P*R+(8*PI*G26*A**2* 

&  B-6*PI*E26*A**2*B*H**2)*M*N**2*P)/(((3*PI*A**2*B*H**2*P**2- 

&  3*PI*A**2*B*H**2*M**2)*Q**2-3*PI*A**2*B*H**2*N**2*P**2+3*PI 

&  •A*»2*B*H**2*M**2*N**2)*R**2) 

c 

CVO  =  (((-16*PI**2*E26*A**2*M*N**3-16*Pr*2*E16*B**2*M**3*N)* 

&  P-32*PI**2*E26*A**2*M*N*P*Q**2rR**2+(16*PI**2*F26*A**2*M*N 

&  •P*Q**2+(8*PI**2*F26*A**2*M*N**3+(-8*PI**2*F16*B**2*M**3-12 

&  •A26*A**2*B**2*H**2*M)*N)*P)*R+(8*Pr*2*G26*A**2*M*N**3-6* 

&  B26*A**2*B**2*H**2*M*N)*Py(((3*PI*A**2*B*H**2*P**2-3*PI*A 

&  •*2*B*H**2*M**2)*Q**2-3*PI*A**2*B*H**2*N**2*P**2+3*PI*A**2* 

&  B*H**2*M**2*N**2)*R**2) 

c 

EVO  =  ((12*PrA26*A**3*H**2*N*P*Q**2+12*PI*A16*A*B**2*H**2*M 
&  ••2*N*P)*R**2+(6*PI*B  1 6*  A*B**2*H**2*M**2*N*P-6*PI*B26*  A**3* 

&  H**2*N*P*Q**2)*R)/(((3*PI*A**2*B*H**2*P**2-3*PI*A**2*B*H**2 

&  •M**2)*Q**2-3*PI*A**2*B*H**2*N**2*P**2+3*PI*A**2*B*H**2*M** 

&  2*N»*2)*R**2) 

c 

GVO  =  ((12*PI*A26*A**2*B*H**2*M*P*Q**2+12*PI*A26*A**2*B*H**2* 
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&  M*N**2'»P)*R**2+(6*PI*B26*A**2*B*H**2*M*P*Q**2+6*PI*B26*A**2 

&  •B*H**2*M*N**2*P)*R)/(((3*PI*A**2*B*H**2*P**2-3*PI*A**2*B*H 

&  **2*M**2)*Q**2-3*PI*A**2*B*H**2*N**2*P**2+3*PI*A**2*B*H**2* 

&  M**2*N**2)*R**2) 

c 

c  ••  corresponding  to  w  ** 

c 

AW  =  0.0 
c 

BW  =  -(((144*PI**2*F26*A**2*B*H**2-192*PI**2*H26*A**2*B)*M*N 
&  •*2+(48*PI**2*F16*B**3*H**2-64*PI**2*Hl6*B**3)*M**3+( 

&  -36*A45*A**2*B**3*H**4+288*D45*A**2*B**3*H**2-576*F4S*A**2* 

&  B**3)*M)*P*Q*R**2+((256*PI**2*D6*A**2*B-192*PI**2*G26*A**2 

&  •B*H**2)*M*N**2+(36*B26*A**2*B**3*H**4-48*E26*A**2*B**3*H** 

&  2)*M)*P*Q*R+(48*PI**2*H26*A**2*B*H**2-64*PI**2*J26*A**2*B)* 

&  M*N**2*P*Q)/(((9*PI*A**2*B**2*H**4*P**2-9*PI*A**2*B**2*H**4 

&  •M**2)*Q**2-9*PI*A**2*B**2*H**4*N**2*P**2+9*PI*A**2*B**2*H 

&  ••4*M**2*N**2)*R**2) 

c 

CW  =  -((((-72*PrA45*A**2*B**2*H**4+576*PI*D45*A**2*B**2*H**2 
&  -1152*PI*F45*A**2*B**2)*M-256*PI**3*Hi6*B**2*M**3)*N-256*PI 

&  ••3*H26*A**2*M*N**3)*P*Q*R**2+(384*PI**3*I26*A**2*M*N**3+( 

&  128*PI**3*I16*B**2*M**3-192*PI*E26*A**2*B**2*H**2*M)*N)*P*Q 

&  •R+(96*PI*F26*A**2*B**2*H**2*M*N-128*PI**3*J26*A**2*M*N**3) 

&  •P*Q)/(((9*PI*A**2*B**2*H**4*P**2-9*PI*A**2*B**2*H**4*M**2) 

&  •Q**2-9*PI*A**2*B**2*H**4*N**2*P**2+9*PI*A**2*B**2*H**4*M** 

&  2*N**2)*R**2) 

c 

EW  =  -((48*PI**2*E26*A**3*H**2*N**3+144*PI**2*E16*A*B**2*H**2 
&  •M**2*N)*P*Q*R**2+((36*A26*A**3*B**2*H**4-72*PI**2*F16*A*B 

&  ••2*H**2*M**2)*N-72*PI**2*F26*A**3*H**2*N**3)*P*Q*R+(24*PI 

&  ••2*G26*A**3*H**2*N**3-18*B26*A**3*B**2*H**4*N)*P*Q)/(((9* 

&  PI*A**2*B**2*H**4*P**2-9*PI*A**2*B**2*H**4*M**2)*Q**2-9*PI* 

&  A**2*B**2*H**4*N**2*P**2+9*PI*A**2*B**2*H**4*M**2*N**2)*R** 

&  2) 
c 

GW  =  -((144*PI**2*E26*A**2*B*H**2*M*N**2+48*PI**2*E16*B**3*H 
&  ••2*M**3)*P*Q*R**2+(-72*PI**2*F26*A**2*B*H**2*M*N**2+24*PI 

&  ••2*F16*B**3*H**2*M**3+36*A26*A**2*B**3*H**4*M)*P*Q*R+(18* 

&  B26*A**2*B**3*H**4*M-24*PI**2*G26*A**2*B*H**2*M*N**2)*P*Q)/ 

&  (((9*PI*A**2*B**2*H**4*P**2-9*PI*A**2*B**2*H**4*M**2)*Q**2- 

&  9*PI*A**2*B**2*H**4*N**2*P**2+9*PI*A**2*B**2*H**4*M**2*N**2 

&  )*R**2) 
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c  *•  corresponding  to  7,  ** 
c 

AJX  =  ((72*D16*H*M-192*F16*H**2+128*H16)*M*N*P*Q*R+(-72*E16* 
&  H**4+192*G16*H**2-I28*I16)*M*N*P*Q)/(((9*H**4*P**2-9*H**4*M 

&  •*2)*Q**2-9*H**4*N**2*P**2+9*H**4*M**2*N**2)*R) 

c 

BJX  =  0.0 

c 

CJX  =  0.0 

EJX  =  0.0 

GJX  =  0.0 

c 

c  •*  corresponding  to  7j,  ** 
c 

AJY  =  0.0 

c 

BJY  =  (((36*PI*D26*A**2*B*H**4-144*PI*F26*A**2*B*H**2+128*PI* 

&  H26*A**2*B)*M*P*Q**2+(36*PI*D26*A**2*B*H**4-48*PI*F26*A**2* 

&  B*H**2)*M*N**2*P)*R**2+((-36*PI*E26*A**2*B*H**4+144*PI*G26* 

&  A**2*B*H**2-128*PI*I26*A**2*B)*M*P*Q**2+(48*PI*G26*A**2*B*H 

&  ••2-36*PI*E26*A**2*B*H**4)*M*N**2*P)*R)/(((9*PI*A**2*B*H**4 

&  •P**2-9*PI*A**2*B*H**4*M**2)*Q**2-9*PI*A**2*B*H**4*N**2*P** 

&  2+9*PI*A**2*B*H**4*M**2*N**2)*R**2) 

c 

CJYl  =  ((256*PI**2*H26*A**2-96*PI**2*F26*A**2*H**2)*M*N*P*Q** 

&  2+((-48*PI**2*F26*A**2*H**2-64*PI**2*H26*A**2)*M*N**3+((64* 

&  PI**2*H16*B**2-48*PI**2*F16*B**2*H**2)*M**3+(36*A45*A**2*B 

&  ••2*H**4-288*D45*A**2*B**2*H**2+576*F45*A**2*B**2)*M)*N)*P) 

&  /((9*PI*A**2*B*H**4*P**2-9*PI*A**2*B*H**4*M**2)*Q**2-9*PI*A 

&  •*2*B*H**4*N**2*P**2+9*PI*A**2*B*H**4*M**2*N**2) 

c 

CJY2  =  (((144*PI**2*G26*A**2*H**2-384*Pr*2*I26*A**2)*M*N*P*Q 
&  ••2+((48*PI**2*G26*  A**2*H**2+  l28*PI**2*I26*A**2)*M*N**3+(48 

&  •E26*A**2*B**2*H**2-36*B26*A**2*B**2*H**4)*M*N)*P)*R+(128* 

&  PI**2*J26*A**2-48*PI**2*H26*A**2*H**2)*M*N*P*Q**2-64*PI**2* 

&  J26*A**2*M*N**3*P)/(((9*PI*A**2*B*H**4*P**2-9*PI*A**2*B*H** 

&  4*M**2)*Q**2-9*PI*A**2*B*H**4*N**2*P**2+9*PI*A**2*B*H**4*M 

&  **2*N**2)*R**2) 

c 

CJY  =  CJYl+aY2 

c 

EJY  =  (((36*PI*B26*A**3*H**4-96*PI*E26*A**3*H**2)*N*P*Q**2+( 
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&  48*PI*E26*A**3*H**2*N**3+(36*PI*B16*A*B**2*H**4-48*PI*E16*A 

&  •B**2*H**2)*M**2*N)*P)*R**2+((144*PI*F26*A**3*H**2-54*PI* 

&  D26*A**3*H**4)*N*P*Q**2-72*PI*F26*A**3*H**2*N**3*P)*R+(18* 

&  PI*E26*A**3*H**4-48*PI*G26*A**3*H**2)*N*P*Q**2+24*PI*G26*A 

&  **3*H**2*N**3*P)/(((9*PI*A**2*B*H**4*P**2-9*PI*A**2*B*H**4* 

&  M**2)*Q**2-9*PI*A**2*B*H**4*N**2*P**2+9*PI*A**2*B*H**4*M**2 

&  •N**2)*R**2) 

c 

GJY  =  (((36*PI*B26*A**2*B*H**4-96*PI*E26*A**2*B*H**2)*M*P*Q** 

&  2+36*PI*B26*A**2*B*H**4*M*N**2*P)*R**2+((48*PI*F26*A**2*B*H 

&  **2-18*PI*D26*A**2*B*H**4)*M*P*Q**2.24*PI*F26*A**2*B*H**2*M 

&  •N**2*P)*R+(48*PI*G26*A**2*B*H**2-18*PI*E26*A**2*B*H**4)*M* 

&  P*Q**2-24*PI*G26*A**2*B*H**2*M*N**2*P)/(((9*PI*A**2*B*H**4* 

&  P**2-9*PI*A**2*B*H**4*M**2)*Q**2-9*PI*A**2*B*H**4*N**2*P**2 

&  +9*PI*A**2*B*H*»4*M**2*N**2)*R**2) 

c 

Else 


AUO  =  0.0 
BUG  =  0.0 
CUO  =  0.0 
EUO  =  0.0 
GUO  =  0.0 
AVO  =  0.0 
BVO  =  0.0 
CVO  =  0.0 
EVO  =  0.0 
GVO  =  0.0 
AW  =  0.0 
BW  =  0  0 
CW  =  0.0 
EW  =  0.0 
GW  =  0.0 
AJX  =  0.0 
BJX  =  0.0 
CJX  =  0.0 
EJX  =  0.0 
GJX  =  0.0 
AJY  =  0.0 
BJY  =  0.0 
CJY  =  0.0 
EJY  =  0.0 
GA'  =  0.0 
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End  If 


c  STORE  THESE  TERMS  IN  THE  STIFFNESS  MATRIX 


STIFFdJ)  =  AUO 
STIFF(I,J+MMAX*NMAX)  =  BUO 
STIFF(I,J+2*MMAX*NMAX)  =  CUO 
STIFF(U+3*MMAX*NMAX)  =  EUO 
STIFF(I,J+4*MMAX*NMAX)  =  GUO 
STIFF(I+MMAX*NMAX,J)  =  AVO 
STIFF(I+MMAX*NMAXJ+MMAX*NMAX)  =  BVO 
STIFF(I+MMAX*NMAXJ+2*MMAX*NMAX)  =  CVO 
STIFF(I+MMAX*NMAX,J+3*MMAX*NMAX)  =  EVO 
STIFF(I+MMAX*NMAX,J+4*MMAX*NMAX)  =  GVO 
STIFF(I+2*MMAX*NMAX,J)  =  AW 
STIFF(I+2*MMAX*NMAX,J+MMAX*NMAX)  =  BW 
STIFF(I+2*MMAX*NMAX,J+2*MMAX*NMAX)  =  CW 
STIFFa+2*MMAX*NMAXJ+3*MMAX*NMAX)  =  EW 
STIFF(I+2*MMAX*NMAXJ+4*MMAX*NMAX)  =  GW 
STIFF(I+3*MMAX*NMAX,J)  =  AJX 
STIFF(I+3*MMAX*NMAXJ+MMAX*NMAX)  =  BJX 
STIFF(I+3*MMAX*NMAXJ+2*MMAX*NMAX)  =  CJX 
STIFF(I+3*MMAX*NMAXJ+3*MMAX*NMAX)  =  EJX 
STIFF(I+3*MMAX*NMAXJ+4*MMAX*NMAX)  =  GJX 
STIFF(I+4*MMAX*NMAXJ)  =  AJY 
STIFF(I+4*MMAX*NMAXJ+MMAX*NMAX)  =  BJY 
STIFFa+4*MMAX*NMAXJ+2*MMAX*NMAX)  =  CJY 
STIFF(I+4*MMAX*NMAX4+3*MMAX*NMAX)  =  EJY 
STIFF(I+4*MMAX*NMAXJ+4*MMAX*NMAX)  =  GJY 


C  COMPUTE  MASS  MATRIX  ELEMENTS 


c  FIRST  CALCULATE  THE  MASS  MOMENTS  OF  INERTIA. 
I2BARPR  =  RHO*H**3/(15.0*R) 

I3BARPR  =  RHO*H**3/(60.0*R) 

I5BAR  =  RHO*H**3M.O/315.0 
17  =  RHO*H**7/448.0 
II  =  RHO*H 

I4BAR  =  RHO*H**3*17.0/315.0 
AUOMASS  =  0.0 
BUOMASS  =  0.0 
CUOMASS  =  0.0 
EUOMASS  =  0.0 
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GUOMASS  =  0.0 
AVOMASS  =  0.0 
EVOMASS  =  0.0 
GVOMASS  =  0.0 
EWMASS  =  0.0 
GWMASS  =  0.0 
BJXMASS  =  0.0 
EJXMASS  =  0.0 
GJXMASS  =  0.0 
AJYMASS  =  0.0 
EJYMASS  =  0.0 
GJYMASS  =  0.0 
C 

If(NBUCVIB.EQ.l)Then 

c  VIBRATIONS  PROBLEM  -  WE  ARE  LOOKING  FOR  THE  NATURAL 
c  FREQUENCIES 
c 

If  (M.EQ.P.AND.N.EQ.Q)  Then 
BVOMASS  =  -A*B*I2BARPR/4.0 
CVOMASS  =  PI*A*I3BARPR*Q/4.0 
AWMASS  =  0.0 

BWMASS  =  PI*A*I5BAR*Q/4.0 

CWMASS  =  -(16*PI**2*A**2*I7*Q**2+16*PI**2*B**2*I7*P**2+9*A** 
&  2*B**2*H**4*Iiy(A*B*H**4)/36.0 

AJXMASS  =  -A*B*I4BAR/4.0 
CJXMASS  =  0.0 
BJYMASS  =  -A*B*I4BAR/4.0 
CJYMASS  =  PI*A*I5BAR*Q/4.0 
c 

Else  If  (MOD(M+P,2).NE.O.  AND.N.EQ.Q)  Then 
BVOMASS  =  0.0 
CVOMASS  =  0.0 

AWMASS  =  -B*I5BAR*M*P/(P**2-M**2) 

BWMASS  =  0.0 
CWMASS  =  0.0 
AJXMASS  =  0.0 

CJXMASS  =  B*I5BAR*M*P/(P**2-M**2) 

BJYMASS  =  0.0 
CJYMASS  =  0.0 
c 

Else 


BVOMASS  =  0.0 
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CVOMASS  =  0.0 
AWMASS  =  0.0 
BWMASS  =  0.0 
CWMASS  =  0.0 
AJXMASS  =  0.0 
CJXMASS  =  0.0 
BJYMASS  =  0.0 
CJYMASS  =  0.0 
c 

End  If 
c 

Else 

c 

c  BUCKLING  PROBLEM  -  WE  ARE  LOOKING  FOR  THE  CRITICAL  BUCKLING 
c  LOADS 
c 

BVOMASS  =  0.0 
CVOMASS  =  0.0 
AWMASS  =  0.0 
BWMASS  =  0.0 
AJXMASS  =  0.0 
CJXMASS  =  0.0 
BJYMASS  =  0.0 
CJYMASS  =  0.0 
c 

If(M.EQ.P.AND.N.EQ.Q)Then 
CWMASS  =  B*P**2*PI**2/A/4.0 
Else 

CWMASS  =  0.0 
c 

End  If 
c 

End  If 


c  STORE  THESE  TERMS  IN  THE  MASS  MATRIX 


MASSdJ)  =  AUOMASS 
MASS(U+MMAX*NMAX)  =  BUOMASS 
MASS(IJ+2*MMAX*NMAX)  =  CUOMASS 
MASS(I,J+3*MMAX*NMAX)  =  EUOMASS 
MASS(U+4*MMAX*NMAX)  =  GUOMASS 
MASS(I+MMAX*NMAX,J)  =  AVOMASS 
MASS(I+MMAX*NMAX,J+MMAX*NMAX)  =  BVOMASS 
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MASS(I+MMAX*NMAX,J+2*MMAX*NMAX)  =  CVOMASS 
MASS(I+MMAX*NMAX,J+3*MMAX*NMAX)  =  EVOMASS 
MASS(I+MMAX*NMAX,J+4*MMAX*NMAX)  =  GVOMASS 
MASS(I+2*MMAX*NMAX,J)  =  AWMASS 
MASS(I+2*MMAX*NMAX,J+MMAX*NMAX)  =  BWMASS 
MASS(I+2*MMAX*NMAX,J+2*MMAX*NMAX)  =  CWMASS 
MASS(I+2*MMAX*NMAX,J+3*MMAX*NMAX)  =  EWMASS 
MASS(I+2*MMAX*NMAX,J+4*MMAX*NMAX)  =  GWMASS 
MASS(I+3*MMAX*NMAX,J)  =  AJXMASS 
MASS(I+3*MMAX*NMAX,J+MMAX*NMAX)  =  BJXMASS 
MASS(I+3*MMAX*NMAX,J+2*MMAX*NMAX)  =  CJXMASS 
MASS(I+3*MMAX*NMAX,J+3*MMAX*NMAX)  =  EJXMASS 
MASS(I+3*MMAX*NMAX,J+4*MMAX*NMAX)  =  GJXMASS 
MASS(I+4*MMAX*NMAX,J)  =  AJYMASS 
MASS(I+4*MMAX*NMAX,J+MMAX*NMAX)  =  BJYMASS 
MASS(I+4*MMAX*NMAX,J+2*MMAX*NMAX)  =  CJYMASS 
MASS(I+4*MMAX*NMAX,J+3*MMAX*NMAX)  =  EJYMASS 
MASS(1+4*MMAX*NMAX,J+4*MMAX*NMAX)  =  GJYMASS 

J  =  J+1 
1  =  1+1 
J  =  1 


c  CALL  THE  IMSL  LIBRARY  SUBROUTINE.  USE  THE  MASS  AND  STIFFNESS 
c  MATRICES  AS  INPUT  AND  FIND  THE  EIGENVALUES  AND  EIGENVECTORS. 
Call  DGVCRG(MSIZE,STIFF,MSIZE,MASS,MSIZE, ALPHA, BETA, EVEC,MSIZE 
&  ) 

Do  101=  1,MSIZE 
If(BETA(I).NE.0.0)  Then 
EVAUI)  =  ALPHA(I)/BETAa) 

Else 

EVAUI)  =  (1.0D+30,0.0D+00) 

End  If 

10  Continue 

If(NBUCVIB.EQ.l)Then 

c  PRINT  OUT  THE  FIRST  10  MODES  FOR  THE  VIBRATION  PROBLEM 
c 

Do  20  I  =  1,10 

REVAL  =  DREAL(EVAL(I)) 

AGEVAL  =  DIMAG(EVAL(I)) 

If  (ABS(AGEVAL).GT.1.0D-15)  Then 
Write  (2,5000)  I 

Else  If  (REVAL.GT.  l.OD+28)  Then 
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Write  (2,5200)  I 

Else  If  (REVAL.LT.0.0)  Then 

Write  (2,5100)  I 

Else 

OMEGA  =  SQRT(REVAL) 

Write  (2,5300)  I,REVAL,OMEGA 
End  If 

20  Continue 
c 

Else 

c 

c  PRINT  OUT  THE  CRITICAL  BUCKLING  LOAD.  THE  CRITICAL 
c  BUCKLING  LOAD  IS  THE  EIGENVALUE  WITH  THE  SMALLEST  ABSOLUTE 
c  VALUE . 

C 

Do  30 1  =  2,MSIZE 

If  (ABS(DIM  AG(EVAL(M))).GT.  1  .OD-15)  Then 
Go  To  30 
End  If 

If(ABS(DREAL(EVAL(I))).GT.ABS(DREAL(EVAL(M))).AND. 

&  ABS(DREAL(EVAL(I-l))).LT.1.0D+28)  Tnen 
Write  (2,5500)  DREAL(EVAL(I-1)) 

End  If 

30  Continue 
c 

End  If 
c 

c  PRINT  OUT  THE  1ST  MODE  OF  THE  DEFLECTION,  W(X,Y),  ALONG  THE 
c  MIDLINES  OF  THE  PANEL:  X  =  A/2  AND  Y  =  B/2 
c 

c  PRINT  OUT  THE  W  EIGENVECTOR,  CMN 
c 

n  =  1 

Write  (2,5600) 

Write  (2,5700) 

MNWMIN  =  1+2*MMAX*NMAX 
MNWMAX  =  3*MMAX*NMAX 
Do  40 1  =  MNWMIN,MNWMAX 
REVEC(n)  =  DREAL(EVECa,l)) 

AGEVEC  =  DIMAG(EVECa,l)) 

If  (ABS(AGEVEC).GT.1.0D-15)  Then 

Write  (2,5800)  I.II,REVECai) 

Else 
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Write  (2.5900)  I,II,REVEC(n) 

End  If 
II  =  11+ 1 
40  Continue 
c 

c  DETERMINE  WiX=A/2,Y) 
c 

ASTEP  =  A/50.0 
BSTEP  =  B/50.0 
XCOORD  =  A/2.0 
YCOORD  =  0.0 
Write  (2,6000) 

Write  (2,6100) 

50  WMODE  =  0.0 
JJJ  =  1 

Do70M=  l.MMAX 
Do60N=  1,NMAX 

WMODE  =  WMODE+REVEC(JJJ)*SIN(M*PI*XCOORD/A)* 
&  SIN(N*PI*YCOORD/B) 

JJJ  =  JJJ+1 
60  Continue 
70  Continue 

Write  (2,6200)  YCCX)RD,  WMODE 
YCOORD  =  YCOORD+BSTEP 
If(YCOORD.GT.B)Then 
Go  To  80 
Else 

Go  To  50 
End  If 
c 

80  YCOORD  =  B/2.0 
c 

c  DETERMINE  W(X,Y=B/2) 
c 

XCOORD  =  0.0 
Write  (2,6300) 

Write  (2,6400) 

90  WMODE  =  0.0 
JJJ  =  1 

Do  llOM  =  1,MMAX 
Do  100  N  =  l.NMAX 

WMODE  =  WMODE+REVEC(JJJ)*SIN(M*PI*XCOORD/A)* 
&  SIN(N*PI*YCOORD/B) 
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JJJ  =  JJJ+1 
100  Continue 
1 10  Continue 

Write  (2,6200)  XCOORD.WMODE 
XCOORD  =  XCOORD+ASTEP 
If  (XCOORD.GT.  A)  Then 
Go  To  120 
Else 

Go  To  90 
End  If 


120  Return 

5000  Format  (/.8X,I3,1  lX.’EIGENVALUE  IS  COMPLEX’) 

5100  Format  (/,9X,I3,1  lX.’EIGENVALUE  IS  NEGATIVE’) 

5200  Format  (/,9X,I3, 1 1 X, ’EIGENVALUE  IS  INFINITE’) 

5300  Format  (/,9X,I3,10X,D20.13.12X,D20.13) 

5400  Format  (/,8X.I3,10X.D20. 13) 

5500  Format  (//,5X, ’CRITICAL  BUCKLING  LOAD  =  ’,1X,D20.13) 
5600  Format  (//,5X,’W  EIGENVECTOR.  CMN,  FOR  1ST  MODE’) 
5700  Format  (//,5X,’M,N’,10X, ’CMN’) 

5800  Format  (/,5X,I4,2X,I4,12X,D20.13,3X,’COMPLEX’) 

5900  Format  (/,5X,I4,2X,I4,12X,D20.13) 

6000  Format  (//,5X, ’DEFLECTION,  W(X=A/2,Y)’) 

6100  Format  (//,5X,’Y(IN.)’,10X,’W(A/2,yKIN.)’) 

6200  Format  (/,5X,F6.2,1 1X,E15.8) 

6300  Fonnat  (//,5X, ’DEFLECTION,  W(X,Y=B/2)’) 

6400  Format  (//,5X,’X(IN.)’,10X,’W(X,  B/2)(IN.)’) 

End 
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Appendix  C.  Sample  MACSYMA  Batch  File 


MACSYMA  (17,  26)  was  used  to  perform  much  of  the  long 
and  complicated  algebraic  manipulations  required  for  this 
thesis.  The  following  is  an  example  of  the  batch  files  used 
to  perform  the  integration  of  the  equations  of  motion.  This 
sample  generated  the  Galerkin  equations  for  the  clamped 
boundary  condition,  Case  (1),  as  described  in  the  Boundary 
Conditions  section.  (See  Eqs  (67)  through  (72)) 

Notice  that  this  file  reads  another  file  called  "force- 
matrix. mac."  This  file  is  not  included  here  for  brevity. 

It  purpose  was  to  develop  the  laminate  constitutive  rela¬ 
tions  to  be  substituted  into  the  equations  of  motion  for  the 
resultant  forces,  moments,  etc.  (See  Theory,  Eqs  33  and 
35) . 
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F  * 


Sinacgyma 

ioadfile( "torcematrix.mac" )S 
DEPENDS( [UO,VO,W,PSI fX^Y] )$ 
declare^  [in,n,p,q]  ,inteqer)$ 
assunie_poe :  true$ 

uo:e[mn] *coe(m*%pi*x/a)*ein(n*%pi*y/b) $ 

VO ;  g[mn]  *sin{in*%pi*x/a )  *cos  <n*%pi*y/b)  $ 
w:c[inn3  *sin(in*%pi*x/a)  *sin(n*%pi*y/b)  $ 
psi[x]  ;a[inn]*sin(ni*%pi*x/a) *sin{n*%pi*y/b)  $ 
pBi[y ] ;b[mn] *Bin(ro*%pi*x/a) *sin(n*%pi*y/b) $ 
delu : COB (p*%pi*x/a) *Bin(q*%pi*y/b) $ 
delv: sin(P*%pi*x/a) *coB (q*%pi*y/b) $ 
delwj  sin(p*%pi*x/a) *8in(q*%pi*y/b) $ 
delpsix; sin(p*%pi*x/a) *8in(q*%pi*y/b) $ 
delpsiy :gin(p*%pi*x/a) *ein(g*%pi*y/b) $ 

E0[X] ;DIFF(UO,X)$ 

E0[y] :DIFF(VO, Y)+W/R$ 

G0[XY] ;DIFF(UO,Y)+DIFF(VO,X)$ 

G0[Yzi :PSI[Y]+DIFF(W,Y)$ 

GO[xzi ;PSI[xj+DirF(W,X)$ 

K0[X] :DIFP(PSI[X] ,X)$ 

K0[Y] :DlFr(PSlLY],Y)$ 

KO[XY] ;DIFF(PSI[X] ,Y)+DIFP(PSIIY] ,X)+(DIFF(VO,X)-DIFF(UO, Y) ) 
/(2*R)$ 

K1[Y] ;-DIFF(PSl[Y],Y)/R$ 

K1[XY1 :-DIFP(PSl[Xj,y)/R$ 

Kl[Yzi:3*K*(PSI[Y]+DIFF(W,y) )$ 

KlfxZ] ;3*K*(PST[X]+DIFF(W,X) )$ 

K2[X] :K*(DIFF<PSI(X] ,X)+DIFF(W,X,2) )$ 

K2(Y] ;K*(DIFF(PSI[Yi,Y)+DlFF(W,Y,2) )$ 

K2(XY]  :K*  (DIFF{PSI[X] ,  Y)+DIFF(PSI[Y]  ,X)+2*DIFF(DIFF(W,X)  ,Y)  )$ 
K3tY] :-K*(DIFF(PSI[Y] ,Y)+DIFF(W,Y,2) )/R$ 

K3[XY] ;-K*(DIFF(PSI[X) ,Y)+DIFF(DIFF(W,X) ,Y) )/R$ 

k;-4/(3*h-2)$ 

m;p; 

n:q; 

trigexpand ; f alse$ 
writef ile( "clcasel . for" ) ; 

uol; (DIFF(EV(N[1] ) ,X)+DIPF(EV(N[6] ) , Y)-DIFP(EV(M[ 6] ) ,Y)/(2*R 
) )*delu$ 

uola;expand(ev(uol ) ) $ 
count; length (uola) $ 

uosuml ;  suni(  integrate  ( integrate  (part  ( uola,  i),x,0,a),y,0,b),i, 
1, count )$ 

rateiinp  ( uosuml ,  a  (inn  ]  ,b[inn]  ,c(mn]  ,elmn]  ,g[mn] ) ; 

VOl: (I2BP*0MS*PSI[Y]-I3BP*0MS*DIFF(W,Y)+DIFF(EV(N[2] ) ,Y)+DIF 
F(EV(N[6] ) ,X)+DIFF(EV(M[6] ) ,X) /(2*R) ) *delv$ 

VO 1 a : expand ( ev ( vo 1 ) ) $ 
count : length ( vola ) $ 
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vosuml:suin(integrate(integrate(part(vola,i)  ,x,0,a)  /y/0,b)  ,i, 
1, count) ;$ 

ratsiinp(%,a[mn]  /  b[inn]  /C[inn]  /e[mn]  ,g[mn] ) ; 

Wl: (I5B*0MS*(DIFF(PSI[X] ,X)+DIFF(PSI [ Y] , Y) ) -K^2*I7*OMS* (DIFF 
(W,X,2)+DIFF(W,Y,2) )+Il*OMS*W+DIFF(EV(Q[l] ) ,X) -K* (DIFF(EV(P[ 
1] ) ,X,2)+DIFF(EV(P[2] ),Y,2)+2*DIFF(DIFF(EV(P[6] ) ,X) ,Y) )+DIFF 
(EV(Q[2] ) ,Y)+3*K*(DIFF(EV(R[2] )/Y)+DIFF(EV(R[l] ) ,X) )-(EV(N[2 
] )-K*(DIFF(EV(L[2] ),Y,2)+DIFF(DIFF(EV(L[6] ),X),Y) ) )/R+NBAR[l 
]*DIFF(W,X/2)+2*NBAR[6]*DIFF(DIFF(W,X) ,Y)-NBAR[2]*(1/R-DIFF( 
W,Y,2) ) )*delw$ 
wla : expand (ev(wl) )$ 
count : length (wla ) $ 

wsuinl :  suin(  integrate  (integrate  (part  (wla,  i)  ,x,0,a),y,0,b),i,l, 
count ) $ 

ratsiinp(%,a[inn]  ,b[inn] , c[inn]  ,e[mn]  ,g[mn] ) ; 

psixl:  (ib4*oins*psi[x]-ib5*oms*diff  (w,x)+k*(diff  (ev(p[l] )  ,x)  + 
diff  (ev(p[6] )  ,y)  )+diff  (ev(ni[  1] )  ,x)+diff  (ev(m[6] )  ,y)-ev(q[  1] ) 
-3*k*ev(r [ 1 ] ) - (diff ( ev( s [ 6 ] ) ,y)+k*diff (ev( 1[ 6 ] ) ,y ) ) /r ) *delps 
ix$ 

psixla;expand(ev(psixl ) ) $ 
count : length(psixla) $ 

psixsuml ; sum ( integrate ( integrate ( part (psixla,i),x,0,a),y,0,b 
) ,i, 1, count )$ 

ratsimp(%,a[mn] ,b[mn] ,c[mn] ,e[mn] ,g[mn] ) ; 

psiyl ; (ib4*oms*psi[y ]-ib5*oras*diff (w,y)+k* (diff (ev(p[2 ] ) /y)+ 
diff (ev(p[ 6 ] ) ,x) )+diff (ev(m[2 ] ) ,y)+diff (ev(m[ 6 ] ) ,x)-ev(q[2 ] ) 
-3*k*ev(r[2] )-(diff (ev(s[2] ) ,y)+k*diff (ev(l[2] ) ,y) )/r)*delps 
iy$ 

psiyla ; expand (ev( psiyl) )$ 
count : length (psiy la) $ 

psiysural : sura ( integrate ( integrate ( part (psiyla,i),x,0,a),y,0,b 
),i,l, count )$ 

ratsirap(%,a[mn] ,b[ran] ,c[ran] ,e[ran] ,g[mn] ) ; 

save( “clcasel .mac" ,uosuml,vosuml,wsuml, psixsuml, psiysural) ; 
CLOSEFILE( ); 
quit( ); 

$exit 
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Appendix  D.  Galerkin  Equations 


This  Appendix  contains  the  Galerkin  equations  derived  for 
the  clamped  and  clamped-simple  boundary  conditions  as 
described  in  Section  II. 
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The  Galerkin  equations  for  Case  (1)  for  the  clamped 


boundary  condition  are  as  follows: 

Equation  (56)  for  u^^  becomes: 

Aan*  0  +  5™,'  0 

-  -  16ll3£:^2)aW  _  +  [i,32Ti^F^^ 

+  a^pq^  -  ~  8n^Ggga^pg^)/48a^jbi2^i?^} 

-  £’^{[  (127i^Agga^ii^g^  +  12ti^ p^ ) -  12ti^ B^^a^h^q^R 

+  Sn^Dgga^h^g^] /48a^Jbi2^i?^} 

-  Gj^{  [  (127i^Agg  +  l2n^A3^2)  “  Bu^Dgga^jbh^pg] /48a^Jbh^i?^} 

=  0 


Equation  (57)  for  becomes: 

A™,'  0  ^  0 

-  C'flB,{([  (■32ii^£'5g  -  167t^£'i2)  i>^P^g  “  ISn^Bjza^g^l  +  (len^Fjja^g^ 

-  12nA22^^b^h^q)  R  +  Bn^G^^b^p^<^/^Bab^h^R^} 

-  £’^{[  (12n^Agg  +  12ii^Aj^2^  ab^h^pqR^  -  3‘Ji^D^^ab^h^pq]  /4Bab^h^R^} 

-  Gj^{[  (1211^^223 ^bh^g^  +  12n^Affb^h^p^)  R^  +  12n^ B^^b^h^p^R 

+  3it2pggjb^h2p2]  /4Bab^h^R^}  =  {naql2/4}u>^C^ 
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Equation  (58)  for  w  becomes: 


+  C^{[(-167t*H22a^g‘  +  [(-64Ti^//gg  -  32n*H^2^  -  9%'^A^^a^b^h*‘ 

+  72Tc^D^^a^b^h^  -  l447i2F44a^jb2]  g2  _  isn^H^^b^p* 

+  {-Sn^A^^a^b^h*  +  72it^D^^a^b*h^  -  lA^n^F^^a^b*) p^)R^ 

+  {3 271^2223 +  [(6471*266  +  3271*2^2^  "2471^£22^*^^^^1  <3^^ 

-  247t2jS'i2a^jb*i2^p^)i?  -  1671* ■*■  (247i2F22a*i?^i2^ 

-  167i*J66^^jb^P^)  <2^  “  9A22a*jb*i3*]/36a^b^A*F^} 

+  E'jn„{([  (247t^E'66  +  127C^Fi2)  a^Jb^b^pg^  +  127r^Eiiajb*fj^p^]  2?^ 

+  [(-2471^^66  "  12v} a^b^h^pq"^  +  97iA^23^P^^^p]  ^ 

+  6n^G^^a^b^h^pq^)/26a^b^h*R^] 

+  <3j„{([l27J^E22a*jbfl2g^  +  (2471^^66  +  127t^£j^2) 

+  {9itA22^*b^h*q  -  12n^F22^*i>h^Q^)  R 

-  Srt^G^^a^b^h^p^q^j/36a^b^h*R^)  =  -  [[16%^  1^  (a^q^  +  b^p^) 

+  9a^b^h*IJ  /36abh*}ui^C^  +  {n^bp^/ia}Nj^C^ 


214 


Equation  (59)  for  becomes: 


-  {( [  OTC^Dgga^A^  -  24i:^F^^a^h^  +  16 +  (Sn^D^^b^h* 

-  +  16u2^iib2)p2  +  SAgsa^jb^b*  -  l2D^^a^b^h^ 

+  144F55a^jb^]  +  ( -le^c^Fgga^b^  +  - 32n^ I^^a^)  q^R 

+  {9%^F^^a^h*  -  24it^H^^a^h^  +  IBn^ J^^a^)  g^)/ 36 abh*R^} 

-  Bgg^  {( [  On^Djga^ia*  -  24ii^F2ga^ii^  +  len^ifjgS^)  +  OTi^D^^b^h* 

-  24%^Fj^^b^h^  +  16 ) p^  +  SA^^a^b^h*  -  12n^D^^a^h^h^ 

+  144F^^a^b^]R^  +  (-I87i2^26<a^*^  +  ^8n^G26a^h^  -32Tt^l2^a^)  g^R 

+  Ou^Fjga^ii^  -  2An^H2^a^h^  +  16ii2j26a^)  g2)/36ajbi2‘F^} 

+  0  ^inn*  0  +  G^-  0  =  0 


Equation  (60)  for  becomes: 

-  {([  (9ii^£»26^^**  ■  2A‘K^F2^a^h^  +  16n^H26a^)  g^  +  On^Dj^^b^h* 

-  2A%^F^^b^h^  +  16n2/figjb2)p2  +  9A^^a^b^h*  -  72D^^a^b^h^ 

+  144Fg5a2jb2]  +  48Tl2G26a2A2  -3271^  Jjga^)  g^i? 

+  (9i:^F2^a^h*  -  2 471^/^26 ISTiVgga^)  g2)/36ab/2*F^} 

-  {( [  OTi^Djja^ii*  -  247i^F22a^/j-  +  ISTi^Hjja^)  g2  +  [9n^D^^b^h*‘ 

-  247t2FggJb2A2  +  I67i2flggjb2)p2  +  9A^^a^b^h*  -  l2D^^a^b^h^ 

+  144Fgga^jb^]  +  (-187j2F22a2i3^  +  A8-K^G223^h^  -32n^l22^^)  Q^R 
+  (9‘K^F223^h*  -  2^n^H223^h^  +  16 Ti^Jjga ^ )  g^)/ 36 abii^F^} 

+  C-^-  0  0  +  G^'  0  =  0 
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The  Galerkin  equations  for  Case  (2)  for  the  clamped 


boundary  conditions  are  as  follows: 

Equation  (56)  for  u^^  becomes: 

npqR  +  [  (12ilFi6 

-  97ii?igA^)  npg] /6i2h^  (g^  -  n^)] 

-  SllE^^InpqR  +  [(-37lPgg 

-  6nl?i2)i3^  +  47tFgg  +  ^%F^2^np(i)/eh‘^R{q'^  -  n^)] 


Equation  (57)  for  becomes: 

-  8n^E,,a^)nq^  *  WB^.b^h^ 

-  np^R  +  (Sn^Fjga^  -  en^D^^a^h^)  nq^ 

+  (3n^Dj^^b^h^  -  4n^F^^b^) np^)/6nabh^R{q^  -  p^)} 
+  B^  {( [  (67t^S22^^^^  ■  871^^22^^)  ^*3^^  * 

-  Bvi^E^^b'^)  np^]  R  +  (8712^22^^  -  Sn^D22^^h^)  nq^ 

+  (3n^D^^b^h^  -  4n^F^^b^) np^)/6nabh^R(.q^  -  p^)} 
*  0  *  E^- 0  *  G„-0  ‘  {abnli/^(q^  - 
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Equation  (58)  for  w  becomes: 


■ -^inn  {([  np^  + 

-  ISn^Hjga^) +  (-9A^^a^b^h*  +  llD^^a^b^h^ 

-  144F45a2jb2)  n]  gl?2  +  [  Ol-n^Ij^^b^  -  2^-K^G^^b^h^)  np^ 

+  {32n^l2f,a^  -  2A‘K^G2^a^h^)  n^  +  {9B2^a^b^h*^ 

-  12E2^a^b^h^)  n]  gR  +  [  (12ii2/f263^b^  -  16Tt^J2sa^)  n^ 

+  {12F2^a^b^h^  -  9D26a^b^h*)  n]  (^/9abh^R^  {g^  -  n^)] 

-  -Bffln  {[([(24ir2Fgs  +  12Ti^F^2)b^h^  +  (-32n^H^^  -  16n^H^2'> 

+  (127i^F22a^b2  -  167C^H22a2) 23^  +  {-9A^^a^b^h*  +  12D^^a^b^h^ 

-  lAAF^^a^b^)  n)gR^  +  {[(-123125;^^  -  121125^2)^^^^  +  (16it2jgg 

+  1611^1^2^  b^]  np^  +  (327i2j22a2  -  24Tt^G22^^h^)  +  {9B22a^b^h* 

-  12E223^b^h^)  n)gR  +  [  {12ic^H223^h^  -  167r2j22a2) 

+  (12F22a2jb2/32  -  9D22a^b^h*)  n]  g\/9ab^h*R^  ig^  -  n2)} 

^  0  +  En^'  0  G«n*  0  =  "  {angl^/ (g^  -  ;32)}o)2b^ 
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Equation  (59)  for  becomes; 


-  ^mn  {([(96112/^^6^2  -  72112^16^2^2)  J3p2  + 

-  2ATi^F2^a.‘^h'^)  +  {iQA^^a^b'^h^  -  lAAD^^a'^b^h'^ 

+  288F45a2jb2)  i2]  gj?2  +  [  (48it2Gj^6jt>2b2  -  GAit^I^^b^)  np^ 

+  (48it2G26a2i3  2  _  64n2j26a2)n2  +  {2AE2f,a^b^h^ 

-  18B2^a^b^h^)  n]  gR  +  [(32112472^32  -  2A‘n^H2^a^h^) 

+  {18D26a^b^h*  -  24F26a2jb2i22)ia]  gj/i8ajb2A^J?2  (g2  -  u^)-^ 

-  [[  {36iiB^^ab^h^  -  A8itE^^ab^h^)  npgR^  +  {26TtF^^ab^h^ 

-  21nDj^f^ab^h^)  npgR] /18ab^h^R^  {g^  -  n^)] 

-  {{[  (18llBi6jb^A'‘  -  24ilBi6^3h2)p2  +  (18ltB26a2jbA< 

-  24lt£’26a2jbA2) /l2]  g/?2  +  [  {9ltDj^^b^h^  -  12ltFi6jb^A2)p2 

+  ( 2411  Fjga 2 jbA 2  -  I8itl)26a2jb/i^)i32]  gB)/18ajb2h*J?2  (g2  -p2)| 

=  0 
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Equation  (60)  for  7y  becomes; 

0  +  0 

-  <^inn  {[(t  "  2ATl^F-^^)b'^h^  +  +  32n^ b^]  np^ 

+  (3271^/^22^^  “  2A%^F^^a^h^) n^  +  (iBA^^a^jb^A^  -  lAAD^^a^b^h^ 

+  288F^^a^b^)  n)gR^  -  ([(24lt^G^^  +  2471^ +  (-32712 Jgg 

-  32n^I^2^  b^]  np^  +  i48n^G22^^b^  -  64n^l22^^)  {24E22A^b^b^ 

-  l8B223^b^h*)  n)gR  -  [(32%^J223^  -  24n^H22a^h^)  n^ 

+  {l8D22^^b^h*  -  2 4 F22^^ b^ )  n]  gy  18 ab^h^R^  (g^  -  n^)} 

-  {([  (ISTcBgg  +  18itB^2^  ab^h*  +  (-247r£’gg  -  24izE^2^  ab^h^]  npgR^ 

+  [(-97iBgg  -  I8n 0^2'^  ab^h*  +  (127tFgg 

+  24zFj^2^  ab^h^]  npgR)/18ab^b*R^  {g^  -  n^)} 

-  ([  (ISTrBggb^b^  -  247tFggjb^i32)p2  +  (i87tB22a^bJ3* 

-  24tc E22^^ bh^ )  n^]  gR^  +  [{SnD^^b^h*  -  12itF^^b^h^) p^ 

+  (2471^22 a 2Jbi2 2  -  iSTcBjja^jbb^) ^2]  g2;jj/'18ajb2A''i?2  (g2  - 

=  {angJ5/(g2  -  ;22)}(o2c^ 
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The  Galerkin  equations  for  Case  ( 3 )  for  the  clamped 
boundary  condition  are  as  follows: 

Equation  (56)  for  u^  becomes: 

-  8TzE^^a^)mg^  +  mp^ 

+  (12TtBj^^b^h^  -  l67cEjL,jb2)m^]  i?^  +  (i2iiFgga^  -  9 ti D^^a^ ) mq^R 
+  OitE^^a^h^  -  4itG^^a^)mq^)/6abh^R^  (p^  - 
+  San  {{t  (CTiSjga^A^  -  8TzE2^a^)  aiq^  +  {B-nE^^b^  -  SuB^^b^h^)  mp^ 

+  (12iiBj^gb^A^  -  l6itS3^gjb^) m^] +  (i2TiF2ga^  -  9nD2^A^h^) mq^R 
+  (SnE’jga^h^  -  AnG^^a^) mq^)/8abh^R^  {p^  -  m^)} 

+  0  ^  ^ffln*  0  +  Ga„-  0  =  0 


Equation  (57)  for  becomes: 

{([(SnSgg  +  6nSi2)i3^  -  8«Sgg  -  SnEj^^^mpqR^  +  (4nFg6 
-  3-nD^^h^)  mpqR  +  (47cGgg  -  3nE^^h^)  mpcij/eh^R^  (p^  -  m^)} 
+  San  {[  (127lS2gi3^  -  ISuSjg)  mpgS^  +  (4iiF2g  -  3  Tl  )  nipqR 
+  [4‘kG2^  -  3-KE2^b^)  mpq\ /8h^R^  {p^  -  m^)) 

+  C’inn*  0  +  San-  0  +  Gan*  0  =  0 


220 


Equation  (58)  for  w  becomes: 


-  {[([  (24112^66  12712^12)  a 2ii 2  +  (-32n2Hgg  -  I67i2if^2)a^]inpq2 

+  [  (127i^Fi,jb^ii^  -  +  {-9A^^a^b^h^  +  12D^^a^b^h^ 

-  lAAF^^a^b'^) m] p)R'^  +  ([(-aen^Ggg  -  1271^^12)  a +  (487i2jgg 

+  a‘^]mpq^  +  {^B^^a'^b'^h^  -  l2Fi2a^jb^i3^) /np)F 

+  (12n^H^^a^h^  -  16n^J^^a^) mpq^y9a^bh*R^  {p^  -  m2)} 

-  {[((36712^263^*2  -  487l2/f26a2)innq2  +  [(12712^16*^*^ 

-  167l2if^gJb2)^3  +  {-^A^^a^b^h*-  +  72Z?45a2jb2^2 

-  144^4532*2)  ;jj]p)F2  +  [(647l2j26a2  -  487l2G26a2*2);jjpg2 

+  (9^2632*2^34  _  12F26a2*2*2)3j2p]  jj  +  (12112^26 

-  l6ii^J2^a^) mpq^y9a^bh*R^  (p^  -  m^)} 

+  •  0  +  0  +  Gv  0  =  -{*mpJ5/(p2  -  /n2)}to2A^ 
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Equation  (59)  for  becomes: 

^  B^-0 

-  {[([  (-48w2F66  -  24^2^12)32*2  +  (64n2i4g  +  32Ti^H^2^a^]mpg^ 

+  [(327:2Hii*2  _  24712^11*2^2)^3  +  (iQA^^a^b^h*  -  lAAD^^a^b^h^ 

+  288^5532*2)  in]p)F2  +  ([(727t2G65  +  247t2Gi2)  32*2  +  (-967t2jgg 

-  327t2Ji2)  32]  mpq2  +  (24^1332*2*2  _  mp)R 

+  (327:2^5532  -  247:2/f5532*2)7npg2j/l8a2**^F2  (p2  -  /??2) 

-  £'^{([(187:55533**  -  247t£5533*2)pg2  +  (18nBii3*2*4 

-  247l£ii3*2*2)7n2p]  J?2  +  (367CF553^*2  -  21  ItD^^a^  h*)  PQ^R 

+  {SnE^^a^h*  -  127tG553^*2)pqr2j/i8a2**‘*7?2  (p2  -  m^)] 

-  {([  (I871B55  +  I871B12)  a2**«  +  (-247r£’55  -  247t£i2)  32**2] /npgB2 

+  (127tF5532**2  -  9itD^^a^bh*) mpgR  +  (1271^5532**2 

-  9iiE^^a^bh*) mpqlj/18a^bh*R^  (p^  -  m^)) 

=  {bmpl^/ (p^  -  m^)}ui^C^ 
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Equation  (60)  for  becomes: 

•  0  ^  0 

-  {[((96ii2/f26a2  -  12it^F2f,a^h^)mpg^  +  [{32T:^H^^b^ 

-  24ii2F^gjb2^2)^3  +  {iSA^^a^b^h*  -  lAAD^^a^b^h^ 

-  2^BF^^a^b^)m]p)R^  +  [  -  128Tt^ I^^a^)  mpg^ 

+  (,2AE2^a^b^h^  -  IQB^^a^b^h*)  mp]  R  +  (.22n^J2^a^ 

-  2A‘K^H2^a^h^)  mpg^yiBa^bh*R^  {p^  -  m^)} 

-  E^  {([(l8nB2ga3ii4  -  2AiiE2ea^h^) pg^  +  {ISnB^^ab^h* 

-  24‘nE^f^ab^h^)  m^p]  R^  +  0^‘KF2^a^h^  -  27TtD2^a^h^) pg^R 
+  (9itE2^a^b*  -  12TtG2^a^h^) pg^)/ 18 a^bh*R^  (p^  -m^)} 

-  [H26-KB2^a^bh*  -  4 8 ir E'jg a ^jbh 2 )/npgR 2  +  (l2izF2^a^bh^ 

-  9itD2f,a^bh*)  mpgR  +  (12ir<326^^^^^ 

-  9  n  E2^a^  bh* )  mpg]  / 18  a^bh^R^  {p^  -  m^)}  =  0 
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The  Galerkin  equations  for  Case  (4)  for  the  clamped 


boundary  conditions  are  as  follows: 

Equation  (56)  for  u^,  becomes: 

•  0  0 

+  -  16 n)  qR^ 

+  ll6n^ Fj^^b^imp^  +  2471^^26^^^^  *  (Sn^F^^b^m^ 

-  12^263 n]  qR  +  {6B2^a^b^h^inn 

-  Su^Gjga^mn^)  q]/37iajb^ii^  (p^  -  m^)  (g^  -  n^)] 

+  E^  [[  (12‘KAj^^ab^h^np^  +  llnA^^ab^h^m^n)  qR^  +  {-SnB^f^ab^b^np'^ 

-  SuB^^ab^h^m^n)  qR]  /3Ttab^h^R'^  (p^  -  m^)  (g^  -  n^)} 

+  [[  (llTt A^^b^h^mp^  +  12n A^^a^ bh^ im^ )  qR^  +  (enB^^b^h^mp^ 

-  6itB263^bh^mn^)  qR]  /3‘Kab^h^R^  {p^  -  m^)  (g^  -  n^)}  =  0 


Equations  (57)  for  becomes: 

0  +  0 

+  |[[  (-16it^jE26^^^^  “  16 Ej^^b^ n) p  -  32n^ E2^a^ninpq^]  R^ 

+  {1671^ F2f,a^ianpq^  +  [811^^26^^^^  *  ( “Sn^Figb^/n^ 

-  12A2fa^b^h^m)  n]  p)R  +  (Sn^Gjga^mn^ 

-  6B2sa^b^h^inn) py3na^bh^R^  ip^  -  m^)  (g^  -  n^)} 

+  E^  {[(.12itA2^a^h^npq^  +  12%  A^^ab^  np)  R^  +  {6itB^^ab^h^m^np 

-  6‘KB2fa^h^npq^)  R]  /3na^bh^R^  {p^  -  m^)  (g^  -  n^)] 

+  Gi^  [Hl2'KA2fa^bh^mpq^  +  12nA2^a^bh^ntn^p)  R^  +  {6nB2^a^bh^mpq^ 
+  6nB2ia^bh^mn^p)  R]  /3na^bh^R^  {p^  -  m^)  (g^  -  n^)}  =  0 
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Equation  (58)  for  w  becomes: 


A™,  •  0  +  0 

-  {[([  (-7 271^453 +  SlSTiD^^a^b'^h^  -  1152%F^^a^b^) m 

-  2567i^Higb^m^]  n  -  256 ■a^H26a^mn^)pqR^  +  [3847t^ Jjga^/nn^ 

+  (1287t^  Jigjb^m^  -  192‘nE2^a^b^h^m)  n]pgR  +  OSTiFjga^b^A^mn 

-  1287t^J2ga^nin^)pg]/97ia^jb^ii^F^  (p^  -  m^)  (g^  -  n^)} 

-  {((48n^F26a^ii^n^  +  Ej^^ab^h^m^ n) pgR^  +  [  OeAjga^jb^A^ 

-  12n^F^^ab^h^ra^)  n  -  12‘R^F2^a^h^n^]pgR  +  {2ATt^G2^a^h^n^ 

-  18B2^a^b^h*n) p(;ij/9na^b^h*R^  {p^  -  m^)  (g^  -  n^)j 

-  [{lAAn^E2f,a^bh^im^  +  ABn^E^^b^h^m^) pgR^ 

+  (-12-n^F2^a^bh^mn^  +  2A‘R^F^^b'^h^m^  +  36A2^a^b^h^m)  pgR 
+  {18 82^01'^ b^h^m  -  24it^G2f,a^bh^mn^) pg]  /9Tia^b^h^R^  ip^ 

-  m^)  (g^  -  p2)}  =  0 


Equation  (59)  for  7^^  becomes: 

{[{12Dj^^h*‘  -  192Figh2  +  128Fig)iTinpgF  +  {-12E^^h*‘ 

+  192G^^h^  -  128 Jjg) mnpg] /9ij^F(p^  -  /n^)  (g^  -  n^)] 

+  {{t(36Dgg  +  36D,2)A"  +  (-96Fgg  -  96F^2)h^  +  64Fgg 

+  64^12]  mnpgF  +  [(-36Fgg  -  36Fi2)A^  +  {96G'gg  +  96G^2^ 

-  64Jgg  -  64Ji2]/nnpg)/9/i*F(p2  -  m^)  (g^  -  n^)'^ 

+  C-inn-  0  +  0  +  G^-  0  =  0 
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Equation  (60)  for  fy  becomes: 

A^{([(36D6g  +  36D,2)il"  +  (-96F,e  -  96F^^)h^  + 

+  SAHj^^^mnpgR  +  [(-36^6^  -  2SE^^)h*  +  OSCgg  +  SSG^^) 
-  64J66  -  64Ji2]innp<3)/9h‘F(p2  -  in^)  (g^  -  /jZ)} 

+  {[(72P2«i3*  -  192F2sA2  +  128H26)ninpgF  +  {-12E^^h^ 

+  192(326^2  -  128J26)mnpg]/9A4F{p2  -  m^)  (g^  -  ^2)} 

^/nn  •  0  0  +  0  =  0 
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The  Galerkin  equation  for  Case  (1)  for  the  claraped-simple 
boundary  condition  are  as  follows: 

Equation  (56)  for  u^^  becomes: 

0 

-  {([  a^bh'^  +  (-len^Bgg  -  3^b] pgJ?^ 

+  -  12ti^D^2)  a^bh^  +  (Sit^Fgg 

+  16 F^2'^  a^b]pgR)/ A&a^bh^R^ 

-  ^inn  {(t(-32it^F,,  -  16Tl3Ei2)a2pg2  -  16  E^^b^  ]  R^  +  [(327t3F65 

+  leic^Fjj)  a^pg^  -  12‘KA22^^i>^h^p]  R  -  Bn^G^^a^pg^)/48a^bh^R^} 

-  Eg^  { [  (l2ii2Agga^i32g2  +  12‘ii^A^j^ab^h^p^)  R^  -  12-K^B^^a^h^g^R 

+  3Tc^D^^a^h^g^]  /46a^bh^R^^ 

-  Ggg^  |[(12ic2Agg  +  I2n^ A^2^  a^bh^pgR^  -  2n^Df,f,a^bh^pg]  / 46a^bh^R^] 

=  0 
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Equation  (57)  for  becomes: 


'  0 

-  -  l6Ti^E22^^i>)  +  {12-K^B^^b^h^ 

-  16n^£’ggb^)p^]  +  [(1671^^22^^^  ~  12rc^D22^^bh^)  q^ 

+  (en^Pggjb^ij^ -  8n^F^^b^)p^]R)/4Bab^h^R^] 

-  {([(-3271^^66  -  167l3£^2)jb2p2q  -  167t3£‘22«3 
+  (leix^Fjja^g^  -  1271^22^ 

+  87i^Gggb^p2<3)/48ajb^b^i?^} 

-  Eg^  {[(127t2Agg  +  12%^ ab^h^pqR^  -  2n^D^^ab^h^pq]  /48ab^h^R^] 

-  G^  {[  '12n^A223^bJ2^q^  +  12rc%gb^j2^p^)  R^  +  12rt^B^^b^h^p^R 

+  37i2pggjb3A2p2] /4g^2^2^2|  =  -{ai5J274}(o2B^  +  {7tagJ374}o)2c^ 
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Equation  (58)  for  w  becomes: 


•  0 

+  {{[{12n^F22^^bh^  -  16i:^H22a*b)g^  +  {[{24n^F^^ 

+  12u^Fi2)a2jb3i22  +  (-32ti^/f66  -  16 a^b^]p^ 

-  9TtA^^a*b^h*  +  7  2‘KD^^a*b^h^  -  1^4nF^^a*b^)q^R^ 

+  [(32u2l22a^b  -  24ii^G22a^bh^)q^  +  ([(-12ti2G66 

-  12u^Gi2)  (Ifin^Jgg  +  16n^  J12)  a^jb^]p2  +  9TiB22a*h^h* 

-  12n E22a*b^h^)<^R  +  (12ic2/f22a^jbi32  -  I6ii3j22a*b) 

+  (127iF22a^b3i22  -  9nD22a*b^h*)<^/26a^b^h*R^} 

+  C^  {[{-16n*H22a^g^  +  [(-64:i*H66  -  32%*‘H^2'^  a^b^p^  -  9Ti^A^^a^b^h* 

+  72n^D^^a*b^h^  -  144n^ F^^a^b^]  g^  -  ISit^H^^b^p^ 

+  {-9n^A^^a^b*h*  +  72n^D^^a^b*h^  -  144 F^^a^ b* ) p^)R^ 

+  {32n^l22a*g*  +  [(64ii*I^^  +  32Tt*  1^2)  a^b^p^ 

-  24ii^E22a*b^h^]  g^  -  24n^ E22a^b*h^p^)R  -  i6n*J22a‘g* 

+  (24n^F22a*b^h^  -  16 n* J^^a^b^p^)  g^  -  9A22a*b*h*y36a^b^h*R^} 

+  Eg^  {([  (24ii^£'gg  +  12n^E^2)  a'^b^h^pg^  +  12n^E^j^ab*h^p^]  R^ 

+  [(-2471^^55  -12Jt^Fi2)  a^jb^A^pg^  +  9KAj^2^^b*h*p]  R 

+  6n^G^^a^b^h^pg^)/36a'^b^h*R^) 

+  Gg^  [{{12'K^E22a^bh^g'^  +  (24ii^Egg  +  12ti^E^2^  a'^b^h'^p^g'\R^ 

+  {9nA22a*b^h^g  -  l2Ti^F22a*bh^g'^)  R 

-  6‘K^G^^a^b^h^p^(i)/36a^b^h*R'^)  =  {nagJ5/4}&>2B^ 

-  {[leic^j,  (a2g2  +  b2p2)  +  9a2b2b«jJ/36abb*}a>2c^ 

+  {jtibpV4a}i7iC^ 
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Equation  (59)  for  7^  becomes: 


-  -Ainn  {([  -  24.Ti^F^^a^h^  +  +  (Sn^D^^b^h* 

-  2^ii^b^h^  +  +  SA^^a^b^h*  -  llD^^a^b^h^ 

+  144^553^^2]  +  (-187l2£'g^a2jj4  +  4  2^2  _  22TZ^  I^^a^)  R 

+  (STi^Fgga^A^  _  24ic2i/gga2A2  +  leit^j-g^a^)  g2)/36ajbA^F2 

=  -{abJ,/4}o>2A^ 

Equation  (60)  for  7^  becomes: 

0 

-  Ban  {([  (ISn^p^^a^jbA^  -  ^8i:^F22^^i>h^  +  32n^H22^^i>) 

+  (187t2p^gi53^4  _  ^Qn^F^^b^h^  32%^H^^b^)p^  +  18A44a2b3A< 

-  lAAD^^a^b^h^  +  288F44a2jb3]F2  +  (-36it^E22a^bh* 

+  96n^G22a^bh^  -  6An^l22a^b)  g^R  +  ISn^Fjga^b/i^  -  4B%^H22a^bh^ 
+  321*2^223  21))  g2j/7  2  ab^/j^F^I 

-  Can  {{[(321*3^2232  -  24lt  3F22a  2A2  )  g3  +  ([(-48lt3F66  -  2ATI^  F^2> 

+  (641*3^55  +  32ll3Bi2)f>^]p^  +  18llA44a2b2A^  -  144l*P44a2b2A2 

+  288irF^4a2l)2jgjjj2  +  [(48ir3C22a2/i2  _  6^71^X22^^)  g^  +  ([(241*3^55 

+  24it3Gi2)jb2b2  +  ( -321*3  J55  _  321*21^2)^^  tp^  ~  18TiB22a^b^h* 

+  2^nE22a^b^h^)g^R  +  32n^J22a^  -  241*3^2232^2)  g3 
+  (181*^22-^^^^^*  ~  24nF22a^b^b^)  g^/72ab^h*R^] 

-  £„„{([  (181*2555  +  181*25^2)  3Jb2A^  +  (241*2555  -  241*25^2)  ab2A2]pg^2 

+  [(-9k2P55  -  181*25^2)^^*^  ■*■  (121*2555 

+  24it^F^2^  ab^h^]  pgR)/72ab^h*R^) 
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-  24n^£’ggjb^ii^)p^]  +  [(2411^^22^^^^^  “  lBn^D22&^t>h^)  g^ 

+  -  12Ti^F^^b^h^)p^]R)/12ab^h*R^} 

=  -{abI^/4.}<it^B^  +  {iiagJ5/4}w2c^ 


The  Galerkin  equations  for  Case  (2)  for  the  clamped- 
simple  boundary  condition  are  as  follows: 

Equation  (56)  for  u^  becomes: 

[[{12‘KB^^h^  -  lSTiE^^)npgR  +  (12TiFig  -  npq]  /Sh^R{q^ 

-  n^))  0  +  C^’  0  +  0  +  0  =  0 


Equation  (57)  for  becomes: 

{( [  (SnSje^^^^  -  8nF26a^)i3g^  +  {SnB^^b^h^  -  B-nE^^b^)  np^'\  R 
+  (SnFjga^  -  BnD2f,a^h^)  nq^  +  OnD^^b^h'^ 

-  ATfF^^b^)  np^)/6abh^R{q^  -  n^)] 

+  5«n'  0  +  C«n'  0  £^«n-  0  +  0  =  0 
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Equation  (58)  for  w  becomes: 


-  (([  -  48n^Hjgjb2)  +  (12%^F2^a^h^ 

-  +  {-SA^^a^b^h*  +  12D^^a^b'^h^ 

-  l^AF^^a'^b'^)  n\  qR^  +  [  (32ii2  J^gb^  -  2An^G^^b'^h'^)  np'^ 

+  (32n^J2ga^  -  2An^G2^a^h^)  n^  +  {9B2^a^b^h^ 

-  12E2^a^b^h^)  n]  qR  +  [  (12ii^H2ga^b^  -  16n2j2ga^)n^ 

+  (l2F2ga^jb^b^  -  SD2^a^b^h^)  n]  (^/Sab^h^R^  iq^  -  n^)} 

^  ■  0  *  0  *  E^‘  0  +  G^-  0  =  0 

Equation  (59)  for  7^  becomes: 

Amr,  •  0 

Bul 

-  B^  [(^[{ISn^D^^b^h*  -  48n^F^^b^h^  +  32%^H^^b^)p^  +  {18Tt^D2^a^bh* 

-  A8Ti^F2(,a^bh^  +  32Ti^H2f,a^b)  +  18A^^a^b^h^  -  lAAD^^a^b^h^ 

+  288F45a^b^]  gR^  +  ( -36ir2E26^^-^^^  ''■  Qen^Gjga^bb^ 

-  SAn^l2^a^b)  n^qR  +  (IStt^Fjga^bb^  -  A8n^H2^a^bh^ 

+  32‘n^J2(,a^b)n^c^/18nab^h^R^{q^  -  n^)) 

-  {( [  (967t^//igb2  -  7  2rc^F^^^b^h^)  np^  +  {32n^H2^a^  -2An^F26a^h^) 

+  {18TiA^^a^b^h*  -  lAAnD^^a^b^h^  +  2887iF45a2jb2)  n]  gR^ 

+  [  (487i^Gigib^b^  -  SAn^I^^b^)  np^  +  (48n^G26a2b^  -  6471^  J26a^) 

+  {2ATzE2^a^b^h^  -  ISnSge^^b^/i^) ri]  gR  +  [(3271^^263^ 

-  2A‘K^H2^a^h^)  n^  +  ( 1871^263 

-  2AnF2^a^b^h^)  n]  (^/l8nab^h*R^  {q^  -  n^)] 
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-  [[  (36%^ -  ^Sn^E^^ab^h^)  npqR^  +  (3S'K^F^^ab^h^ 

-  2lTi^Dj^^ab^h*)  npgR]  /iQnab^h^R^  {g^  -  n^)] 

-  G^  {{[{ISit^Bj^^b^h*  -  2An^Ej^^b^h^)p^  +  B^^a^bh^ 

-  lAti^E^^a^bh^)  n^]  gR^  +  [  (Sn^D^gjb^A^  -  12n^ F^^b^ h^) p^ 

+  {2Ait^F2^a^bh^  -  ISit^D^^a^bh^)  n^]  gRyiBnab^h^R^  {g^ -n^)} 

=  0 

Equation  (60)  for  7^  becomes: 

Aj^  {{[  (Sn^Di^a^h*  -  36n^F2^a^h'^  +  32ii^H2^a^)  ng^  +  On^D^^b^h^ 

-  24j:^F^^b^h^  +  leit^H^^b^)  np^  +  {12Tt^F2^a^h^  -  22^ 

+  {9A^^a^b^h*  -  12D^^a^b^h^  +  144F^^a^b^)  n]  R^  +  [  {-18Tt^E2^a^h^ 
+  12Ti^G2^a^h^  -  e4n^l2^a^)ng^  +  {32Ti‘^l2^a^  -  24.%^G2^a^h^) n^]R 
+  (9Ti^F2f,a^h*^  -  36Tt^H26^^h^  +  32n^J2^a^)ng^  +  {12n^H2^a^h^ 

-  18T:^J2^a^)n^)/9%abh*‘R'^{g'^-n^)] 

*  0  ^  0  *  E^- 0  ^  G^- 0  =  0 
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The  Galerkin  equations  for  Case  (3)  for  the  clamped- 


simple  boundary  condition  are  as  follows: 


Equation  (56)  for  u^  becomes: 

{([SuBgga^h^  -  87c£'gga2)mg2  +  mp^] 

+  {12iiFgga2  -  9rtD^^a^h^) mg^R  +  OnEgga^A^ 

-  4LTiG^^a^)mg^)/6abh^R^  {p^  -  ai^)} 

+  •  0  +  C^-  0  +  E^*  0  +  0  =  0 


Equation  (57)  for  becomes: 

^wn  {([(SnEgg  +  eicEij)*^  -  SwEgg  -  87lEi2]mpgR2  +  (4ilEgg 
-  3nD^^h^)inpgR  +  (4itGgg  -  3i(E^^h^) mp(^j/6h^R^  (p^  -  m^)) 
+  •  0  +  C^-  0  +  E^-  0  +  G^-  0  »  0 
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Equation  (58)  for  w  becomes: 


-  Afflu  {[([  (24it2F6g  +  12n^ a^]  mpg^ 

+  [(l2ii^F^^b^h^  -  16 +  {-9A^^a^b^h*  +  12D^^a^b^h^ 
-  144F55a^b^)  jn]p)F^  +  ([(-36ii^Ggg  -  12%^ a'^h'^  +  (487t^Jgg 
+  len^Jij)  a^]  fljpg^  +  OBija^jb^ii^  - 
+  il2n^Hf^^a^h^  -  16 H^^a^ ) mpQ^y 9 a^bh*R^  (p^  -  m^)] 

+  •  0  +  C^-  0  +  0  +  G^-  0  =  -{b/7jpJ5/(p2-m2)}o)2A^ 


Equation  (59)  for  7.  becomes: 

•  0 

-  {([(ISjtPgg  +  18‘nDj^2'i  a^bh*  +  (-48nFgg  -  4811F12)  a^bii^ 

+  (327tiigg  +  327i/ii2)a2jb]mpgR2  +  [(-ISnFgg  -  18nFi2)  a^bii^ 

+  (48iiGgg  +  ABnG^^'^  a'^bh^  +  (-32iiJgg 

-  32itl^2^  a^b]mpgR)/iea^bh*R^  ip^  -  m^)) 

-  <^inn  {[([  ("^Bu^Fgg  -  24il2Fi2)a"il'*  +  (647i2Fg6  +  327:2^12 )  a 2]  mpq^ 

+  [  (327i2Fiijb2  -  247i2F^^b2i22)n,3  +  (18^5532^2^*  -  l^^D^^a^b^h^ 

+  288F55a2jb2)jn]p)F2  +  ([(72n2Ggg  +  2^ti^G^2'>  *  {-96%^ 

-  327i2J^2)  ^2]  inpg2  +  (24Fi2a2jb2i22  _  18B22a2b2A^)inp)F 

+  (32n2i7gga2  -  2^Ti^H^^a^h‘^)mpq^yi8a^bh^R^  {p^  -  in2)} 

-  {( [  (iBnSgga^A^  -  247cFgga2i2  2)pg2  +  (i87tBi2ajb2i3‘ 

-  2^nE^^ab^h^)  m^p]  R^  +  (36iiFgga2A2  -  2lTtD^^a'^h^) pq^R 
+  OnFgga^A^  -  i2TiG^^a'^h^) pq^)/18a^bh*R^  {p^  -  m2)} 
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-  (■24ir£’66  -  24Tt  a^bh^]  ntpgR^ 

+  {12nF^^a^bh^  -  9TiD^^a^bh*)mpgR  +  {12nG^^a^bh^ 

-  9nE^^a^bh*)mp(^/l8a^bh*R^{p^-Ttt^)}  =  [bmpl^/  {p^ -m^))(ii^Cg^ 


Equation  (60)  for  fy  becomes: 

^inn  +  9icBi2)A"  +  (-24ltFg6  -  24nFi2)i32  +  1611^66 

+  167iB'i2]  inpgR  +  [{-SitFgg  -  9nE^^)h*  +  {24knG^^  +  24iiGi2)A^ 
-  I611J55  -  161:1^^2^ mpg^/ 9 h*Rip^  -  m^)] 

+  '  0  +  C'  0  +  E'  0  +  G'  0=0 

iHn  ton  mn  an 
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The  Galerkin  equations  for  Case  (4)  for  the  clamped- 
simple  boundary  condition  are  as  follows: 

Equation  (56)  for  u^  becomes: 

*  0 

+  {([  -  16 n ) mp^  +  [12‘KB2^a^bh^ 

-  le-nE^^a^b) qR"^  +  (24nF26a^b  -  l^JiD^^a'^bh^) im^qR 

+  {BnE^^a^bh^  -  8nG2^a^b) mn^<if/3nab^h^R^  {p^  -m^)  iq^-n^)) 

+  {((-3 jb^mnp^  -  16Ti2B26a^mn^  -  16 7i^ E^^^b^ n)  qR^ 

+  [ISn^Figjb^mnp^  +  2471^^26^^^^  ■*■  (Sn^Figjb^m^ 

-  12A26a^b^h^m)  n]  qR  +  {6B2^a^b^h^mn 

-  8‘K^G2^a^mn^)  <^^/3Tiab^h^R^  {p^ -m^)  (q^-n^)) 

+  E^  {[(12itAj^^ab^h^np^  +  12nA^f,ab^h^m^n)  qR  +  {-6nBj^^ab^h^np^ 

-  6iiB^^ab^h^m^n)  qR]  /3itab^h^R^  (p^ -a^)  (q^-n^)) 

+  { [  (127iA„i?^/3*mp^  +  12nA26a*jbi22inn2)  gi?^  +  {6nB^^b^h^mp^ 

-  6-KB2^a'^bh^mn^)qR] /3%ab^h^R^{p^-m^)  {q^-n^)}  =  0 
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Equation  (57)  for  becomes: 


*  0 

+  Bam  {([  (12nB26a^bi3^  “  lapq^  +  (12-nB2s^^bh^ 

-  l6TiE2^A^b)mn^p]R^  +  (871^263^23  -  6TiD2^a^bh^) nm^pR 

+  (SnGgga^b  -  enE2(,a^bh^)  mn^p)/3na^bh^R^  ip^  -m^)  (g^-n^)} 

+  Cam  {[[  (-I67t2£’26a^7?2n^  -  16 E^^b^m^ u) p  -  32n^E2^a^innpq^]  R^ 

+  (leTi^Fjga  ^mnpg^  + 

-  l2A2^a^b^h^in)  n]p)R  +  (Sn^Cjga^mn^ 

-  (p2 -m2)  (g2_;32)| 

+  Fam  {[  (1271^26  3 ^A^ppg^  +  127tAi6ajb2i22m2r2p)  +  {SnB^^ab'^h'^m^np 

-  6nB2^a^h^npg^)  R]  /3na^bh^R^  (p^  -m^)  (g^-p^)} 

Gam  {[  (1271^26 *  12TtA2^a^bh^im^p)  R^  +  (STiBjga^jb/j^mpg^ 

+  6itB2^a^bh^mn^p)  R]  /3na^bh^R^  (p^ -m^)  ig^-n^)}  =  0 

Equation  (58)  for  w  becomes: 

A^  •  0 

-  B„m  {([(14471^^26^^^^^  -  19271^^263^2?) inn ^  +  (487;2F^g2?^2l2 

-  647i2Hi62?^)m^  +  {~36A^^a^b^h^  +  288D^^a^b^h^ 

-  SlSF^^a'^b'^) m] pgR^  +  [{256n^l2f,a^b  -  l92-K^G2f,a'^bb}) aai^ 

+  {36B2^a^b^h*  -  48E2^a^b^h^)tti]pgR  +  {48n^H2^a^bh^ 

-  64n^J263^b)  mn^pctj/9na^b^h*R^  ip^  -m^)  (g^-n^)} 
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-  {[([  (-7 211^453 +  SlSnD^^a^b^h^  -  1152nF^sa^b^)ni 

-  25611^ n  -  2SS‘K^ H2^a^mn^)pqR^  +  [38471^ 

+  (128it^  Jjgjb^/n^  -  XS2‘KE2^a^b^h^ni)  n]pgR  +  (96rtF2^a^b^h^inn 

-  12Bn^H2^a^mn^)pgy9Tta^b^h^R^  ip^ -m^)  ig^-n^)} 

-  Eg^  {y^8n^E2f,A^h^n^  +  lAAit^E^^ab^h^m^n) pgR^  +  [  OeAjga^jb^A* 

-  l2n^Fj^^ab^h^m^)  n  -  72it^F2sa^h^n^]pgR  +  (24n^G2s3^h^n^ 

-  18B2^a^b^h*n) p<^/9xa^b^h*R^  {p^  -m^)  (g^-n^)} 

-  Gggj  [[(14Ait^E26a^bh^mn^  +  ASn^E^^b^h^m^) pgR^ 

+  {-12‘R^F2f,a^bh^ran^  +  2An^F^^b^h^m^  +  3SA2^a^b^h*in)  pgR 
+  {18B2^a^b^h*in  -  2A-K^G2^a^bh^mn^) pg]  /9‘Ka'^b^h'^R^  {p^ 

-m^)  (g^ -n^))  =  0 


Equation  (59)  for  becomes; 

{[(72Z7i6i3‘  -  192^16^2  +  128H^^)mnpgR  +  {-12E^^h* 

+  192G^^h'^  -  1281^^) mnpg]  /9h*R{p'^  -m^)  {g^-n'^)] 

+  •  0  +  C'  0  +  E’  0  +  G'  0  =  0 

inn  nn  nn  inn 
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Equation  ( 60 )  for  becomes : 

•  0 

+  {( [  (36iiI>26a^Jbb^  -  lAA-nF2^a^bh^  +  mpq^ 

+  (36nD2^a^bh*‘  -  A8itF26a^bh^) mn^p]  +  [(3671^26^^^^^ 

+  144‘aG2^a^bh^  -  128rcl2^a^b) mpg^  +  {A8nG2^a^bh^ 

-  36TtE2^a^bh*)  mn^p]  R)/9iia^bh*R^  (p^  -m^)  (g^-n^)] 

+  {{[(25671^^26^^  ~  96712^263^122) innpg^  +  [{-A8n^F2^a^h^ 

-  6An^H2^a^) mn^  +  [  (647i2/fi6jb^  -  A8n^F^f^b^h^) 

+  ( 36^453 2Jb2l2‘  -  288D^sa^b^h^  +  57 6 F^^a^b^) m]  n)p]R^ 

+  [{lAATi^G2f,a^h^  -  3847t2j2ga2)n2npq2  +  [  (487i2g263212^ 

+  1287t2 J2ga2)mn2  +  (48£'263  2jb2l22  -  36S26'3^^^-^‘)^]P)^ 

+  (1287t2j2632  -  A8-a^H2^a^h^) mnpg^ 

-  647t2j263^2nn2p}/9ua2jbi2^i?2  (p2 -2n2)  (g2-p2)| 

+  |[((367Cfl26^^^*  ■  9A%E2f,a^h^)  npq^  +  [4871^26^^-^^^^ 

+  {36TtB^^ab^h*  -  A8TtE^^ab^h^)m^n]p)R^  +  [{lAA'KF2^a^h^ 

~  5A%D2^a^h*)  npg^  -  12TiF2^a^h^n^p]R  +  {18‘KE2f,a^h*^ 

~  4871^263^122)  J2pg2  +  24710263  ^l22i7^p]/9  713  2bl2^i?2  (p2 -i372  )  {g^-Tl^)} 

+  Gg^  |(  [  {367cfl,632jbl2^  -  96‘nE2^a^bh^)mpg^  +  36 nB2^a^bh*mn^p]  R^ 

+  [(48711^26^^^^^  “  18n D2^a^ bh* )  mpq^  -  2AnF2^a^bh^mn^p]  R 

+  (4871026 3212132  -  18‘nE2^a^bh*) mpg^ 

-  2A‘KG26a^bh^inn^p)/9iia^bh*R^  {p^  -m^)  {g^-n^)}  =  0 
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